OFFSET
1,2
COMMENTS
MATHEMATICA
s=1; Do[s=s+k^k; If[PrimeQ[s], Print[{k, s}]], {k, 1, 500}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 23 2006
STATUS
approved