OFFSET
1,1
COMMENTS
MATHEMATICA
s=0; Do[p=Prime[n]; k=Sqrt[n]; s=s+p*p; If[PrimeQ[s]&&IntegerQ[k], Print[{k, n, s}]], {n, 1, 10^7}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 26 2006
STATUS
approved