OFFSET
1,1
COMMENTS
0^0 is treated as 1. - Harvey P. Dale, Mar 06 2013
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
nxt[n_]:=Module[{idn=IntegerDigits[n]/.{0->1}}, Total[idn^idn]]; Select[ Range[ 2000], Rest[PrimeQ[NestList[nxt, #, 8]]]=={False, False, False, False, False, False, False, True}&] (* Harvey P. Dale, Mar 06 2013 *)
PROG
(PARI) is(n)=for(i=1, 8, if(i>1&&isprime(n), return(0)); n=digits(n); n= sum(i=1, #n, n[i]^n[i])); isprime(n) \\ Charles R Greathouse IV, Mar 06 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jul 15 1998
STATUS
approved