|
| 数学
|
（*这只是给定i个值的j值的重新计算。*）A053017号= {179, 184, 2014, 4891, 8877, 8907, 17650, 24248, 25216, 26204, 27156, 27570, 37555, 40052, 61195, 68747, 109707, 123114, 223139, 270776, 374392, 591939, 604344, 670751, 836587, 892790, 1295899, 1479632, 1664436, 1822164, 1966614, 1981707} ; do[n]：=n*（3*n-1）*（3*n-2）/2；k0[i_，j_]：=k/。FindRoot[do[i]==do[j]+do[k]，{k，j/2}][[1]]//安静；sols=收割=A053017号[[m]]；doi=do[i]；打印[“i=”，i]；Do[k1=楼层[k0[i，j]]；k2=k1+1；如果[k1<=j，如果[doi==do[j]+do[k1]，打印[ijk={i，j，k1}]；母猪[ijk]；中断[]，如果[doi==do[j]+do[k2]，打印[ijk={i，j，k2}]；母猪[ijk]；中断[]]]，{j，i-1，1，-1}]，{m，1，长度[A053017号]}]][[2, 1]];A053018号=溶胶[[全部，2]](*让-弗朗索瓦·奥尔科弗2015年2月17日*）
（*这只是给定i个值的j值的重新计算。*）
A053017号=案例[导入[“网址：https://oeis.org/A053017号/b053017.txt“，”表格“]，{_，_}][[全部，2]；
do[n]：=n*（3*n-1）*（3*n-2）/2；
三元组=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]]；
A053018号=三元组[[All，2]](*让-弗朗索瓦·奥尔科弗，2015年2月17日，2022年7月9日更新*）
|
