显示找到的3个结果中的1-3个。
第页1
0, 1, 3, 6, 10, 21, 28, 36, 45, 55, 66, 78, 105, 171, 465, 528, 561, 666, 2211, 4465, 7503, 16836, 18336, 22791, 44850, 53628, 55278, 82621, 105111, 114003, 333336, 427350, 828828, 2220778, 2256750, 3136260, 3373503, 3454506, 3927003, 5443350, 6175855, 7552441
MAPLE公司
q: =n->issqr(1+8*(l->解析(cat(0,seq(abs(l[-i]-l[1-i]))
,i=2..nops(l))))(转换(n,base,10)):
选择(q,[i*(i+1)/2$i=0..10000])[]#阿洛伊斯·海因茨2024年7月27日
黄体脂酮素
(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(isA000217(n)&&isA00027(dd(n)),返回(1),返回值(0));}{对于(k=10100000000,如果(isA087597(k),打印1(k,“,”););}\\R.J.马塔尔2006年11月19日
1, 10, 105, 2211, 16836, 105111, 2220778, 14319276, 221098906, 1087061878, 11402689605, 223577504556, 1264725045100, 50869724563503, 111335989114503, 2399795843858155, 11141229266441550, 127955437456464996, 1070124037258522456
黄体脂酮素
(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),returnA000217号(n) ={return(n*(n+1)/2);}ndigs(n)={local(nshft,res);res=0;nshft=n;while(nshft>0,res++;nshft=floor(nshft/10););returnA087599号(n) ={局部(k,T);k=地板(-0.5+平方(0.25+2*10^(n-1)));T=A000217号(k) ;如果(ndigs(T)<n,k++);而(1,T=A000217号(k) ;如果(ndigs(T)>n,则返回(0));如果(isA087597(T),返回(T));k++;);}{用于(n=2,21,打印1(A087599号(n) ,“,”););}\\R.J.马塔尔2006年11月19日
6, 78, 666, 7503, 82621, 828828, 7552441, 87311505, 557362578, 9901692450, 88893307128, 934624072410, 9836548472766, 99245275962778, 994337011743076, 5535761776004778, 89253915287999385, 865474782199906830, 9888742361454004621
黄体脂酮素
(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),returnA000217号(n) ={return(n*(n+1)/2);}ndigs(n)={local(nshft,res);res=0;nshft=n;while(nshft>0,res++;nshft=floor(nshft/10););returnA087600型(n) ={本地(k,T);k=天花板(-0.5+平方米(0.25+2*10^n));T=A000217号(k) ;如果(ndigs(T)>n,k-);而(1,T=A000217号(k) ;如果(ndigs(T)<n,则返回(0));如果(isA087597(T),返回(T));k--;);}{用于(n=2,21,打印1(A087600型(n) ,“,”););}\\R.J.马塔尔2006年11月19日
搜索在0.012秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日04:06。包含376079个序列。(在oeis4上运行。)
|