|
%I #30 Aug 28 2015 11:55:06
%S 5,28,13,99,10,20,41,153,61,29,17,244,113,342,40,80,181,2413,26,97,53,
%T 11080,313,5425,90,180,421,68,37,205,109,356,613,5489,160,85,761,
%U 10413,261,353,50,637,1013,292,104,500,1201,1025,1301,541,281,127295,178
%N First nontrivial or multidigital Armstrong number to base n.
%C Also called narcissistic numbers or pluperfect digital invariants.
%C a(90) > 10^8 if it exists at all. - _Robert Israel_, Aug 24 2015
%H Tim Johannes Ohrtmann, <a href="/A016087/b016087.txt">Table of n, a(n) for n = 3..89</a>
%H Robert Israel, <a href="/A016087/a016087.txt">Known values of n, a(n) for n = 3..269</a> (n=90 still unknown)
%H Dik T. Winter, <a href="http://www.cwi.nl/~dik/english/mathematics/armstrong.html">Armstrong numbers</a>
%p f:= proc(n) local k,L,m;
%p for k from n+1 do
%p L:= convert(k,base,n);
%p m:= nops(L);
%p if add(t^m,t=L) = k then return(k) fi
%p od
%p end proc:
%p map(f, [$3..89]); # _Robert Israel_, Aug 24 2015
%t Do[k = n + 1; While[l = IntegerDigits[k, n]; Apply[ Plus, l^Length[l]] != k, k++ ]; Print[k], {n, 3, 75} ]
%Y Cf. A005188, A259347.
%K nonn,base
%O 3,1
%A _Robert G. Wilson v_
%E Edited and extended by _Robert G. Wilson v_, Feb 28 2002
|
