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
Links
- Tim Johannes Ohrtmann, Table of n, a(n) for n = 1..2879
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 *)