登录
搜索: 编号:a129212
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
数字k,使k^3除以4^(k^2)-1。
+0
16
1, 3, 21, 57, 219, 399, 903, 1533, 2667, 4161, 7077, 17157, 18543, 29127, 32547, 50673, 65919, 74109, 96141, 113799, 114681, 134463, 194691, 227829, 304311, 352317, 383907, 389193, 463071, 516621, 672987, 797349, 863517, 898779, 932799, 1252461, 1353639
抵消
1,2
评论
发件人罗伯特·伊斯雷尔,2020年8月13日:(开始)
除1外,所有项都可以被3整除,但不能被5或9整除。
所有大于3的项都可以被7、19和73中的至少一个整除。
所有条款都是自由的吗?(结束)
链接
罗伯特·伊斯雷尔,n=1..500时的n,a(n)表(罗伯特·普莱斯的前49条条款)
MAPLE公司
过滤器:=n->4&^(n^2)-1模(n^3)=0:
选择(过滤器,[1,序列(i,i=3..10^6,6)])#罗伯特·伊斯雷尔2020年8月13日
数学
k=2;Do[p=质数[k];如果[InterQ[(PowerMod[p+1,n^2,n^3]-1)/n^3],打印[{k,p,n}]],{n,120000}]
k=2;Do[p=质数[k];如果[IntegerQ[(PowerMod[p+1,n^2,n^3]-1)/n^3],打印[{k,p,n}]],{n,1000000}](*罗伯特·威尔逊v2007年4月6日*)
加入[{1},选择[Range[3000000],PowerMod[4,#^2,#^3]==1&]](*罗伯特·普莱斯2020年3月31日*)
交叉参考
囊性纤维变性。A014945号(数字k,使k除以4^k-1)。
囊性纤维变性。A127104型(将k编号为k^2除以4^k-1)。
囊性纤维变性。A128678号(数字k,使k^3除以4^(k^2)+1)。
关键词
非n
作者
扩展
更多术语来自罗伯特·威尔逊v2007年4月6日
状态
经核准的

搜索在0.005秒内完成