%I#26 2017年1月1日15:26:28
%S 1,01531634547485488341741725246780501465112084679307774,
%电话:32164049650,0,028116440335967,0433828176939137021897142587612075,
%电话:0151784154330750396310542859693919161284686430431391252,0
%N最小N位自恋(或阿姆斯特朗)数:最小N位数字等于其数字的N次幂之和(如果不存在,则为0)。
%D M.Gardner,《矩阵博士的魔法数字》,普罗米修斯,布法罗,纽约州,1985年,第249页。
%D C.A.Pickover,无限的钥匙。纽约:W.H.Freeman,第169-170页,1995年。
%H T.D.Noe,n表,n=1..39的a(n)(完整序列)
%H Harvey Heinz,<a href=“http://www.magic-squares.net/naciss.htm“>自恋数字</a>
%H Mike Keith,<a href=“http://web.archive.org/web-cdx/200805120203/http://users.aol.com/s6sj7gt/mikewild.htm“>野生自恋数字</a>(自2008年5月起在web.archive.org上复制-页面已不存在。)
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/NarcissisticNumber.html“>自恋号码</a>
%t(*此程序不适用于超过10个术语*)a[n_]:=对于[k=10^(n-1),True,k++,如果[k>10^n-1,Return[0],如果[k==总计[IntegerDigits[k]^IntegerLength[k]],Return[k]]];表格[打印[an=a[n]];an,{n,1,10}](*Jean-François Alcover_,2013年10月15日*)
%Y参见A001694、A007532、A005934、A005188、A003321、A023052、A046074。
%K nonn、base、fini、full、nice
%氧1,3
%A _N.J.A.斯隆_
%E Patrick De Geest添加的术语和链接,1998年10月
%E由M.F.Hasler修复的断链,2013年2月12日
|