1,1
a = Flatten[Table[If[Prime[j] - Prime[j - 1] == 2, j, {}], {j, 2, 200}]]
Cf. A000040.
Sequence in context: A030711 A060903 A079401 this_sequence A067054 A039893 A050115
Adjacent sequences: A107767 A107768 A107769 this_sequence A107771 A107772 A107773
nonn
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 11 2005
Search completed in 0.002 seconds