%I#10 2013年12月5日19:56:32
%S 78666750382621828828755244187315055573625789901692450,
%电话:88893307128934624072410983654847276699245275962778,
%电话:994337011743076553576177600477889253915287999385865477821999068309888742361454004621
%N A087597的最大N位成员,如果不存在这样的数字,则为0。
%C猜想:没有项是零。
%e a(4)=7503,dd(7503)=253为三角形。
%o(PARI)dd(k)={local(kshf,res,dig,odig,p);kshf=k;res=0;odig=kshf%10;p=0;while(kshf>9,kshf=floor(kshf10);dig=kshf%10;res+=10^p*abs(dig-odig);odig=dig;p++;);return(res);}isA000217(n)={if(issquare(1+8*n),return n*(n+1)/2);}ndigs(n)={本地(nshft,res);res=0;nshft=n;而(nshft>0,res++;nshft=floor(nshft/10););返回(res);}isA087597(n)={if(isA000217(n)&&isA00027(dd(n)),返回(1),返回值(0));}A087600(n)={本地(k,T);k=ceil(-0.5+sqrt(0.25+2*10^n));T=A000217;k-;);}{代表(n=2,21,打印1(A087600(n),“,”);}-R.J.Mathar_,2006年11月19日
%Y参考A087597、A087598、A087599。
%K基,nonn
%氧2,1
%A _Amarnath Murthy,2003年9月18日
%E更多来自R.J.Mathar_的条款,2006年11月19日
%E a(16)-a(18),来自_Donovan Johnson_,2010年7月28日
%E a(19),来自Donovan Johnson,2011年6月19日
|