%我#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日
|