OFFSET
1,1
EXAMPLE
MATHEMATICA
a=5; Do[a=a-Prime[n]+Prime[2n+1]+Prime[2n+2]; If[IntegerQ[Sqrt[a]], Print[{a, n+1 }]], {n, 1, 10^8}];
CROSSREFS
KEYWORD
more,nonn,bref
AUTHOR
Zak Seidov, Oct 18 2009
STATUS
approved