OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐助者

 

标志
提示
(来自的问候整数序列在线百科全书!)
A129212号 数字k,使k^3除以4^(k^2)-1。 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];如果[IntegerQ[(PowerMod[p+1,n^2,n^3]-1)/n^3],打印[{k,p,n}]],{n,1,200000}]
k=2;Do[p=质数[k];如果[InterQ[(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日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。

上次修改时间:美国东部夏令时2024年5月26日13:56。包含372826个序列。(在oeis4上运行。)