|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| f=1; Do[ p=Prime[n]; f=f + 1/p^2; g=Numerator[ f ]; If[ PrimeQ[ g ], Print[ {n, g} ] ], {n, 1, 210} ]
|
|
|
CROSSREFS
| 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 * A031900 A120819 A115078
Adjacent sequences: A136362 A136363 A136364 * A136366 A136367 A136368
|
|
|
KEYWORD
| bref,hard,more,nonn
|
|
|
AUTHOR
| Alexander Adamchuk (alex(AT)kolmogorov.com), Dec 27 2007
|
|
