OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A053018号 放手(n)=A006566号(n) =第n个十二面体数。考虑所有整数三元组(i,j,k),j>=k>0,其中Do(i)=Do(j)+Do(k),按i的递增顺序排列;序列给出了j值。

%我#2022年7月9日18日11:09:54

%S 1781502012484077738904174032236324699262002191622250,

%电话:37022392236119062899102450123108223132269963637434591930,

%电话:554636636031743699892780129588814682901395491182215218591521957822

%N Let Do(N)=A006566(N)=第N个十二面体数。考虑所有整数三元组(i,j,k),j>=k>0,其中Do(i)=Do(j)+Do(k),按i的递增顺序排列;序列给出了j值。

%C i值为A053017,k值为A059019。

%e Do(179)=25665020=25236484+428536=Do(178)+Do(46);

%e完成(184)=27880600=15086400+12794200=完成(150)+完成(142)。

%t(*这只是j值的重新计算,给定i值。*)

%t A053017=案例[导入[“https://oeis.org/A053017/b053017.txt“,”表格“],{_,_}][[All,2]];

%t do[n]:=n*(3*n-1)*(3*n-2)/2;

%t三元组=Reap[模块[{s,i,j,k,n,ijk},s[i_]:=求解[j>=k>0&&do[i]==do[j]+do[k],{j,k}(整数)];对于[n=1,n<=长度[A053017],n++,i=A053017[[n]];ijk={i,j,k}/。s[i]//第一个;打印[ijk];母猪[ijk]]][[2,1]];

%t A053018=三连音[[All,2]](*Jean-François Alcover_,2015年2月17日,2022年7月9日更新*)

%很好,不

%O 1,1号机组

%A Klaus Strassburger(斯特拉斯(AT)ddfi.uni-duesseldorf.de),2000年2月24日

%E更多术语来自Jon E.Schoenfield_,2007年8月13日

%E a(27)-a(32)摘自Donovan Johnson,2010年8月15日

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索引擎|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年5月28日01:34。包含372900个序列。(在oeis4上运行。)