login
A046440
Sum of digits of prime(n) raised to its digits' powers is prime.
1
11, 23, 41, 43, 47, 101, 103, 113, 131, 157, 263, 311, 571, 751, 829, 997, 1021, 1069, 1087, 1187, 1201, 1433, 1583, 1609, 1619, 1871, 2011, 2111, 2221, 2357, 2579, 2683, 2753, 2957, 3023, 3203, 3257, 3343, 3413, 3433, 3527, 3581, 3637, 3673, 3851, 4133
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