OFFSET
1,1
EXAMPLE
MATHEMATICA
g=0; Do[g=g+(-1)^(n+1)*1/(n(n+1)); f=Numerator[g]; If[PrimeQ[f], Print[{n, f}]], {n, 1, 1342}]
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Alexander Adamchuk, Nov 30 2006
EXTENSIONS
More terms from Amiram Eldar, Feb 18 2019
STATUS
approved