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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A070942号 n的值,使得A055265号构成{1,2,3,…,n}的置换。
1, 2, 3, 4, 7, 8, 9, 10, 17, 18, 19, 22, 23, 24, 43, 55, 56, 57, 73, 99, 136, 137, 142, 143, 202, 217, 218, 233, 234, 264, 281, 282, 287, 288, 289, 302, 303, 304, 387, 409, 414, 415, 491, 509, 520, 521, 528, 529, 532, 533, 553, 554, 555, 588, 652, 653, 654, 665 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
扎克·塞多夫和罗伯特·伊斯雷尔,n=1..1500时的n,a(n)表(扎克·塞多夫的前286条条款)
MAPLE公司
S: ={1}:L:={}:
a[1]:=1:b[1]:=1:
计数:=1:
n从2到10000 do
对于L do中的k
如果是素数(k+b[n-1]),则
b[n]:=k;
S: =S联合{k};
L: =L减去{k};
如果L={},则
计数:=计数+1;
a[计数]:=n;
fi;
断裂;
fi(菲涅耳)
日期:
如果未分配(b[n]),则
从max(S)+1 do计算k
如果是素数(k+b[n-1]),则
b[n]:=k;
如果k=最大值(S)+1且L={},则
计数:=计数+1;
a[计数]:=n;
fi;
S: =S联合{k};
五十: ={$1..k}减去S;
打破
fi(菲涅耳)
fi;
日期:
seq(a[i],i=1..计数)#罗伯特·伊斯雷尔2014年9月10日
交叉参考
囊性纤维变性。A055265号.
关键词
非n
作者
约翰·莱曼2003年4月15日
状态
已批准

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

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

上次修改时间:美国东部夏令时2024年3月29日01:36。包含371264个序列。(在oeis4上运行。)