%I M2605#50 2022年4月29日20:43:38
%S 0,1,3,6,55,661715956663003599587781505166066617716828828,
%电话:12696211680861354445350737055676562959263513315361477416,
%电话:1787278711264114621163400436152890098256172882716139535931
%N回文三角形数字。
%C唯一已知的带有偶数2*m个数字的术语是55、66和828828(参见David Wells条目828828)_伯纳德·肖特,2022年4月29日
%D N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
%D Charles W.Trigg,回文三角数,J.Rec.数学。,6 (1973), 146-147.
%D David Wells,《企鹅好奇和有趣数字词典》,第73页和第178页,条目828828(1997年修订版)
%H T.D.Noe,n表,n的a(n)表示n=1..148(摘自Patrick De Geest)
%H Patrick De Geest,<a href=“http://www.worldofnumbers.com/triangle.htm“>回文三角</a>
%t palQ[n_]:=模块[{idn=IntegerDigits[n]},idn==反向[idn]];选择[Accumulate[Range[200000]],palQ](*哈维·P·戴尔,2011年3月23日*)
%t选择[Accumulate[Range[01700000]],PalindromeQ](*需要Mathematica版本10或更高版本*)(*Harvey P.Dale_,2019年9月15日*)
%o(PARI)列表(lim)=我的(v=列表(),d);对于(n=0,(sqrt(8*lim+1)-1)/2,d=数字(n*(n+1)/2);如果(d==Vecrev(d),则列表输入(v,n*(n+1)/2));Vec(v)\\_Charles R Greathouse IV_,2017年6月23日
%o(Python)
%o A003098_list=[m代表m in(n*(n+1)//2代表n in(10**5)),如果str(m)=str(m)[::-1]]#_Chai Wah Wu_,2021年9月3日
%Y参考A008509。
%A000217和A002113的Y交点。
%K nonn,基础,简单,好
%氧1,3
%A _N.J.A.斯隆_
|