OFFSET
1,1
COMMENTS
FORMULA
EXAMPLE
MATHEMATICA
Select[s=0; Table[s+=n^n, {n, 5!}], PrimeQ[ # ]&] (* Vladimir Joseph Stephan Orlovsky, May 30 2010 *)
PROG
(PARI) s=0; for(k=1, 1320, s=s+k^k; if(isprime(s), print1(s, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Aug 13 2002
EXTENSIONS
Edited by M. F. Hasler, Mar 22 2008
Typo in comment corrected by Jonathan Vos Post, Mar 23 2008
STATUS
approved