登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A319063型 A(n,k)是第k个数b>1,使得b^(素数(n+i)-1)==1(模素数(n+i)^2)对于每个i=0..5,k在正整数上运行;由反对偶函数向下读取的方形数组。 7
132857, 171793, 2006776, 261593, 3091832, 296449, 618301, 3420818, 9654224, 17134811, 700993, 3524932, 11002557, 23250274, 36763941, 997757, 4108582, 16616568, 26073470, 195603158, 34998229, 1211201, 4349699, 20512643, 26646377, 307849316, 71724464 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
例子
数组如下所示开始:
132857, 171793, 261593, 618301, 700993, 997757, 1211201
2006776, 3091832, 3420818, 3524932, 4108582, 4349699, 4416499
296449, 9654224, 11002557, 16616568, 20512643, 20950343, 21184318
17134811, 23250274, 26073470, 26646377, 44247410, 49287925, 49975689
36763941, 195603158, 307849316, 364769263, 366974980, 395009864, 428594624
34998229, 71724464, 124024853, 279238292, 709701384, 710808570
数学
行=6;t=5;
T=表格[lst={};b=2;
当[Length[lst]<行时,
p=素数[n+范围[0,t]];
如果[AllTrue[PowerMod[b,(p-1),p^2],#==1&],
附录[lst,b]];b++];
lst,{n,行}];
T//TableForm(*打印A(n,k)表*)
扁平[表[T[[j,i-j+1]],{i,1,行},{j,1,i}]](*罗伯特·普莱斯2019年10月1日*)
黄体脂酮素
(PARI)打印行(n,术语)=我的(c=0);对于(b=2,oo,my(j=0));对于(i=0,5,my(p=素数(n+i));如果(Mod(b,p^2)^(p-1)==1,j++));如果(j==6,打印1(b,“,”);c++);if(c==术语,break))
数组(行,列)=for(x=1,行,打印行(x,列);打印(“”)
数组(8,8)\\打印数组的最初8行和8列
交叉参考
囊性纤维变性。A244249号,A256236型.
i=0..t时的模拟值:A319059型(t=1),A319060型(t=2),A319061飞机(t=3),A319062型(t=4),A319064型(t=6),A319065型(t=7)。
关键字
非n,
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月23日18:16。包含371916个序列。(在oeis4上运行。)