%I#32 2022年9月8日08:45:01

%S 0,1,16,8125662512962401640665611,2,17,8225762612972402，

%电话：40976562,16,17,32,97272641131241741126577,81,82,97162337，

%电话：70613772482414177664225625723375128811552265743526817

%N N的四次幂和。

%C固定点列在A252648第4行A052455中。另请参见A061210_M.F.Hasler，2015年4月12日

%H Seiichi Manyama，<a href=“/A0055013/b055013.txt”>n的表，a（n）表示n=0.-10000</a>

%H K.Chikawa、K.Iséki和T.Kusakabe，<a href=“http://matwbn.icm.edu.pl/ksiazki/aa/aa7/aa733.pdf“>关于H.Steinhaus的一个问题，《算术学报》第7期（1962年），第251-252页_Don Knuth_，2015年9月7日

%H<a href=“/index/Coi#Colombian”>哥伦比亚或自身编号和相关序列的索引条目</a>

%F a（n）=总和{k>0，（楼层（n/10^k）-10*楼层（n/10^（k+1））^4}.-_Hieronymus Fischer，2007年6月25日

%F a（10n+k）=a（n）+k^4，0<=k<10.-_Hieronymus Fischer，2007年6月25日

%p A055013:=程序（n）

%p加法（d^4，d=转换（n，基数，10））；

%p端程序：

%p序列（A055013（n），n=0..20）；#_R.J.Mathar_，2011年11月7日

%t表[Sum[DigitCount[n][[i]]i^4，{i，9}]，{n，0，50}]（*Bruno Berselli_，2013年2月1日*）

%t表[Total[Integer Digits[n]^4]，{n，0,50}]（*哈维·P·戴尔，2019年7月28日*）

%o（Magma）[0]cat[&+[d^4:d in Intseq（n）]：n in[1..50]]；//_Bruno Berselli，2013年2月1日

%o（PARI）a（n）=圆形（normlp（n，4）^4）\\非常慢_M.F.Hasler_，2015年4月12日

%o（PARI）A055013（n）=总和（i=1，#n=数字（n），n[i]^4）\\ M.F.Hasler_，2015年4月12日

%Y参考A003132、A055012。

%Y参见A007953、A055017、A076313、A076316。

%Y参考A052455、A252648；A061210。

%K基，nonn

%0、3

%2000年5月31日，安利底特律