%I #16 Nov 05 2020 06:45:57

%S 1,2,3,4,5,6,7,8,9,10,11,12,17,45,85,98,136,160,793,794,854,1968,8194,

%T 62481,167544,167545,294094,320375,323612,325471,325713,350131,365914,

%U 2412003,4861352,21710514,43757311,43757312,46299414,51798568,52994053

%N Base-13 Armstrong or narcissistic numbers (written in base 10).

%H Joseph Myers, <a href="/A161950/b161950.txt">Table of n, a(n) for n = 1..201</a> (the full list of terms, from Winter)

%H Henk Koppelaar and Peyman Nasehpour, <a href="https://arxiv.org/abs/2008.08187">On Hardy's Apology Numbers</a>, arXiv:2008.08187 [math.NT], 2020.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/NarcissisticNumber.html">Narcissistic Number</a>

%H D. T. Winter, <a href="http://ftp.cwi.nl/dik/Armstrong">Table of Armstrong Numbers</a>

%t Select[Range[10^7], # == Total[IntegerDigits[#, 13]^IntegerLength[#, 13]] &] (* _Michael De Vlieger_, Nov 04 2020 *)

%Y In other bases: A010344 (base 4), A010346 (base 5), A010348 (base 6), A010350 (base 7), A010354 (base 8), A010353 (base 9), A005188 (base 10), A161948 (base 11), A161949 (base 12), A161951 (base 14), A161952 (base 15), A161953 (base 16).

%K base,fini,full,nonn

%O 1,2

%A _Joseph Myers_, Jun 22 2009