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