%I#10 2013年12月5日19:56:32
%S 101052211168361051112220778143192762210989061087061878,
%电话11402689605223577504556126472504510050869724563503,
%电话:111335989114503239795843581551114122926644155012795543745646464961070124037258522456
%N A087597的最小N位成员,如果不存在此类数字,则为0。
%C猜想:没有项是零。
%e a(4)=2211,dd(2211)=010=10。
%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=楼层(nshft/10););返回(res);}isA087597(n)={if(isA000217(n)&&isA00027(dd(n)),返回(1),返回值(0));}A087599(n)={本地(k,T);k=地板(-0.5+平方(0.25+2*10^(n-1)));T=A000217(T);k++;);}{表示(n=2,21,打印1(A087599(n),“,”);),2006年11月19日
%Y参见A087597、A087598、A087600。
%K基,nonn
%氧2,1
%A _Amarnath Murthy,2003年9月18日
%E由R.J.Mathar_更正和扩展,2006年11月19日
%E a(14)-a(18)摘自Donovan Johnson_,2010年5月8日
%E a(19),来自Donovan Johnson,2011年6月19日
|