OFFSET
1,1
MATHEMATICA
f=0; Do[ p=Prime[n]; f=f + (-1)^(n+1)*1/p; g=Numerator[f] ; If[ PrimeQ[g], Print[ {n, g} ] ], {n, 1, 150} ]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Alexander Adamchuk, Dec 27 2007
EXTENSIONS
a(12)-a(16) from Alexander Adamchuk, Sep 15 2010
a(17)-a(19) from Robert Price, Aug 27 2019
STATUS
approved