登录
以15为基数的阿姆斯特朗或自恋数字(以10为基数)。
13

%I#28 2020年11月5日06:46:09

%S 1,2,3,4,5,6,7,8,9,10,11,12,13,1413128275530594907449089,

%电话3868624139515179021521915618605333380092734008219640310423,

%电话:4086822747527794100128060100128061100128188104189152105464820

%N以15为基数的阿姆斯特朗或自恋型数字(以10为基数书写)。

%C每当15|a(n)(n=32、36、40、86、100、135、143、194、197、201)时,则a(n+1)=a(n)+1。零也满足定义(n=Sum_{i=1..k}d[i]^k,其中d[1..k]是n的15位基数),但此序列只考虑正项_M.F.Hasler,2019年11月22日

%H Joseph Myers,<a href=“/A161952/b161952.txt”>n=1..202</a>的n,a(n)表(冬季术语的完整列表)

%H Henk Koppelaar和Peyman Nasehpour,<a href=“https://arxiv.org/abs/2008.08187“>关于哈代的道歉数字,arXiv:2008.08187[math.NT],2020。

%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/NarcissisticNumber.html“>自恋号码</a>

%H D.T.Winter,<a href=“http://ftp.cwi.nl/dik/Amstrong“>阿姆斯特朗数字表</a>

%t选择[Range[10^7],#==Total[IntegerDigits[#,15]^IntegerLength[#,15]]&](*_Michael De Vlieger_,2020年11月4日*)

%o(PARI)选择(is_A161952(n)={n==vecsum([d^#n|d<-n=数字(n,15)])},[1..10^5])\\ M.F.Hasler_,2019年11月22日

%Y其他底座:A010344(底座4)、A010346(底座5)、A0103 48(底座6)、A010.350(底座7)、A010 354(底座8)、A0 10353(底座9)、A005188(底座10)、A161948(底座11)、A161 949(底座12)、A16 1950(底座13)、A161051(底座14)、A1161953(底座16)。

%K底座,fini,完整,非n

%O 1,2号机组

%A _约瑟夫·迈尔斯,2009年6月22日

%E 2019年3月3日,由Pontus von Brömssen按递增顺序排序的术语