1,1
s = 1; Do[ m = n; s = s + 1/n; If[ PrimeQ[ Numerator[ s ] - Denominator[ s ] ], Print[ n ] ], {n, 2, 2500} ]
Cf. A064169.
Sequence in context: A026313 A024912 A108588 this_sequence A047514 A011975 A079249
Adjacent sequences: A064401 A064402 A064403 this_sequence A064405 A064406 A064407
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 28 2001
Search completed in 0.002 seconds