OFFSET
1,1
MATHEMATICA
f=0; Do[ p=Prime[n]; f=f + (-1)^(n+1)*1/p^2; g=Numerator[f] ; If[ PrimeQ[g], Print[ {n, g} ] ], {n, 1, 100} ]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Alexander Adamchuk, Dec 27 2007
EXTENSIONS
a(8) from Robert Price, Aug 28 2019
STATUS
approved