|
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
No more terms up to 35746494200563714=A105720(34769014).
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|