A046440 Sum of digits of prime(n) raised to its digits' powers is prime.

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

Links

Table of n, a(n) for n=0..45.

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

Cf. A046431-A046439.

Sequence in context: A077345 A130282 A019356 * A232116 A119890 A094376

Adjacent sequences: A046437 A046438 A046439 * A046441 A046442 A046443

Keyword

nonn,base

Author

Patrick De Geest, Jul 15 1998

Status

approved