OFFSET
0,1
EXAMPLE
Prime 23 -> 2^2 + 3^3 = 31 and prime. Prime 103 -> 1^1 + 0^0 + 3^3 = 29 and prime.
MATHEMATICA
sopQ[n_] := PrimeQ[Total[#^# & /@ (IntegerDigits[n] /. {0 -> 1})]]; Select[Prime[Range[570]], sopQ[#] &] (* Jayanta Basu, Jun 25 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jul 15 1998
STATUS
approved