1,2

f=1; Do[ p=Prime[n]; f=f + 1/p^2; g=Numerator[ f ]; If[ PrimeQ[ g ], Print[ {n, g} ] ], {n, 1, 210} ]

Cf. A075986 = Numerator of 1+1/p(1)^2+ ... + 1/p(n)^2, where p(k) = k-th prime. Cf. A024528, A125707. Cf. A136366, A136367, A136368, A136369, A136370, A136371.

Sequence in context: A045149 A031511 A101273 this_sequence A031900 A120819 A115078

Adjacent sequences: A136362 A136363 A136364 this_sequence A136366 A136367 A136368

bref,hard,more,nonn

Alexander Adamchuk (alex(AT)kolmogorov.com), Dec 27 2007