%I#20 2020年5月18日11:34:29

%第3,10,17,29,36,53,66,73,92,99118127129134141153155160页，

%电话：179190197216218225244251253258277281307314345349，

%电话：352359368371378397405408413434466469471476495514521532540547557560566567

%N个数是三个互质正立方体的和

%三个立方体的最大公约数必须是1，但它们不必是两两互质。

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%H<a href=“/index/Su#ssq”>与多维数据集和相关的序列的索引项</a>

%e a（3）=17在序列中，因为17=1 ^3+2 ^3+2^3，gcd（1，2，2）=1。

%p N:=1000:#对于所有术语<=N

%pS:={seq（seq（序列（x^3+y^3+z^3，z=select（t->igcd（x，y，t）=1，[$y.floor（（N-x^3-y^3）^（1/3））]），y=x.floor

%p排序（转换（S，列表））；

%o（PARI）列表（lim）=我的（v=列表（），s，g，x3）；lim=1；如果（lim<3，返回（[]））；对于（x=1，sqrtnint（lim\3,3），x3=x^3；对于（y=x，sqrtnint（（lim-x3）\2,3），s=x3+y^3；g=gcd（x，y）；如果（g>1，对于（z=y，sqrtnint（lim-s，3），如果（gcd（g，z）==1，listput（v，s+z^3））），对于（z=y，sqrtnint（lim-s，3），listput（v，s+z^3））））；集（v）\\_Charles R Greathouse IV_，2020年5月18日

%Y参考A202679。

%K nonn公司

%O 1,1号机组

%以色列罗巴特，2020年5月17日