>Do A140842, A140843 etc contain valid Mathematica code? >Someone having actually run the code would probably have submitted >more terms.... >I don't have Mma and cannot judge that sort of thing. I looked at A140842 and found the code is broken. Better code is: Select[17 + 210 Range[0, 100], PrimeQ] Tony