OFFSET
0,1
MATHEMATICA
sop[n_] := Total[#^# & /@ (IntegerDigits[n] /. {0 -> 1})]; Select[Range[1205], (z = Boole /@ PrimeQ[Rest[NestList[sop, #, 9]]])[[9]] - Total[Drop[z, -1]] == 1 &] (* Jayanta Basu, Jun 25 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jul 15 1998
STATUS
approved