#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a087600 %I a087600 %S a087600 786667503826218288287552441873115055573625789901692450, %T a087600 88893307128934624072410983654847276699245275962778, %U a087600 9943370117430766553576177600477889253915287993885865474782199906830,988887742361454004621;%N A087600最大的N位数字成员A087597,如果没有这样的数字,则为0。;%C A087600猜想:没有一个术语是零。;%e A087600 a(4)=7503,dd(7503)=253为三角形。 %o A087600(PARI)dd(k)={本地(kshf,res,dig,odig,p);kshf=k;res=0;odig=kshf%10;p=0;同时(kshf>9,KSHFF=地板(kshf/10);挖掘(kshf>9,KSHFF=地板(kshf/10);挖地(kshf(kshf/10);挖地(kshf/10);挖地=kshf%10;res+=10^p*abs(dig odig);odig=dig;p++;);return(res);}IS000217(n)={if(issquare(1+8*n),return(1),return(0));}A0002217(n)={返回(n*(n+1/1)/2);}ndigs(n)={本地(nshft,res);res=0;nshft=n;WHIFT(nshft>0,res++;nshft=0,res++;nshft=地板(NSFT/10););回归(res);}ISA0087597(n)={{(n)={(n(n,n,n,n)如果(ISA00217(n)和&ISA00217(dd(n)),则返回(1),return(0));}A087600(n)={local(k,T);k=ceil(-0.5+sqrt(0.25+2*10^n));T=A000217(k);if(ndigs(T)>n,k--);while(1,T=A000217(k);if(ndigs(T)-->