%I #9 May 01 2016 16:43:02
%S 5,13,17,29,37,41,43,53,61,83,97,101,109,113,127,173,181,197,229,257,
%T 281,293,307,313,353,397,401,419,421,433,457,541,577,613,641,661,677,
%U 701,733,761,769,811,857,863,997,1013,1061,1093,1153,1201,1229,1277,1297
%N Primes which are multiple-digit narcissistic numbers in at least one base.
%H Tim Johannes Ohrtmann, <a href="/A265889/b265889.txt">Table of n, a(n) for n = 1..2879</a>
%t Select[Prime@ Range@ 250, Function[k, AnyTrue[Range[2, k], Total[#^Length@ #] &@ IntegerDigits[k, #] == k &]]] (* Version 10, or *)
%t Select[Prime@ Range@ 250, Function[k, Total@ Boole[Total[#^Length@ #] &@ IntegerDigits[k, #] == k & /@ Range[2, k]] > 0]] (* _Michael De Vlieger_, Apr 30 2016 *)
%Y Intersection of A000040 and A256359.
%Y Cf. A145380, A180015.
%K nonn,base
%O 1,1
%A _Tim Johannes Ohrtmann_, Dec 18 2015
|