A265889 Primes which are multiple-digit narcissistic numbers in at least one base.

5, 13, 17, 29, 37, 41, 43, 53, 61, 83, 97, 101, 109, 113, 127, 173, 181, 197, 229, 257, 281, 293, 307, 313, 353, 397, 401, 419, 421, 433, 457, 541, 577, 613, 641, 661, 677, 701, 733, 761, 769, 811, 857, 863, 997, 1013, 1061, 1093, 1153, 1201, 1229, 1277, 1297

Offset: 1

Author

Tim Johannes Ohrtmann, Dec 18 2015

Keywords

• nonn
• base

Links

• Tim Johannes Ohrtmann, Table of n, a(n) for n = 1..2879

Crossrefs

Intersection of A000040 and A256359.

Cf. A145380, A180015.

Programs

Mathematica

Select[Prime@ Range@ 250, Function[k, AnyTrue[Range[2, k], Total[#^Length@ #] &@ IntegerDigits[k, #] == k &]]] (* Version 10, or *)
Select[Prime@ Range@ 250, Function[k, Total@ Boole[Total[#^Length@ #] &@ IntegerDigits[k, #] == k & /@ Range[2, k]] > 0]] (* Michael De Vlieger, Apr 30 2016 *)