登录
A337529美元
两个立方除数之和的数字(不一定是不同的)。
1
2, 16, 54, 72, 128, 250, 432, 520, 576, 686, 756, 1024, 1458, 1944, 2000, 2662, 3456, 4160, 4394, 4608, 5488, 6048, 6750, 7560, 8192, 9000, 9826, 11664, 13718, 14040, 15552, 15750, 16000, 18522, 19656, 19710, 20412, 21296, 24334, 24696, 27648, 31250, 32832, 33280
抵消
1,1
评论
所有条款都是公平的-阿洛伊斯·海因茨2020年8月30日
a^3+b^3形式的数字,其中a除以b^3,b除以a^3-罗伯特·伊斯雷尔2020年11月1日
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
例子
16在序列中,因为2是16的除数,2^3+2^3=16。
MAPLE公司
q: =n->(s->ormap(x->n-x in s,s))(映射(x->x^3,numtheory[除数](n)):
选择(q,[2*i$i=1..17000])[]#阿洛伊斯·海因茨,2020年8月30日
N: =50000:#以获得术语<=N
R: =空:
对于从1到地板(N^(1/3))的情况
Bs:=选择(b->b^3+a^3<=N和b^3 mod a=0,数论:-除数(a^3));
R: =R联合映射(b->a^3+b^3,Bs);
日期:
排序(转换(R,列表))#罗伯特·伊斯雷尔2020年11月1日
数学
M=40000;(*获得术语<=M*)
R={};
对于[a=1,a<=楼层[M^(1/3)],a++,
Bs=选择[Divisors[a^3],#^3+a^3<=M&&Mod[#^3,a]==0&];
R=联合[R,a^3+#^3&/@Bs]];
排序[R](*Jean-François Alcover公司2022年1月1日之后罗伯特·伊斯雷尔*)
交叉参考
囊性纤维变性。A094147号(两个平方因子之和)。
关键词
非n
作者
扩展
a(12)-a(44)来自阿洛伊斯·海因茨2020年8月30日
状态
经核准的