%I#32 2018年6月14日15:29:53
%S 1,4,5,9,55,771211813134344845055455956366768181810011111,
%电话:14411771433464461020112321146411737117871196912171240804,
%电话:4121442924444444946564510156575669681818942499767999199
%N回文数字是连续平方和。
%C不止一种方式:554455,9343439。。。(A267600)-Robert G.Wilson v_,2012年5月28日
%H Giovanni Resta,<a href=“/A180436/b180436.txt”>n,a(n)表,n=1..100400</a>(术语<10^18,Robert G.Wilson v的前228个术语)
%e 1001在序列中,因为1001是回文的,它可以写为连续的平方和(1001=4^2+5^2+6^2+…+13^2+14^2)。
%t palQ[n_Integer]:=块[{idn=IntegerDigits[n]},idn==反向[idn]];lst={};k=1;当[k<1000,AppendTo[lst,Select[Accumulate[Range[k,1000]^2],palQ]]时;lst=活接头@扁平接头@lst;k++];选择[lst,#<10^6&](*_Robert G.Wilson v_,2012年5月28日*)
%Y参见A002113、A002779、A034705、A216446、A267600。
%K nonn,easy,基本
%O 1,2号机组
%A _杨志宁_,2011年1月19日
|