搜索: 编号:a108516
|
|
A108516号
|
| 数m,使得第一个m个自然数S_m(n)的置换=如果(1<=n<m-pi(m),c(n),素数(n-m-pi=A002808号(k) )。 |
|
+0 2
|
|
|
1, 4, 6, 14, 32, 65, 84, 111, 124, 147, 212, 236, 320, 380, 465, 517, 584, 636, 876, 955, 2126, 2570, 2962, 4254, 4883
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
对于n>1,a(n)是复合的,因为如果m是质数,那么S_m(m)=m,因此在这种情况下S_m不能是循环置换。
|
|
链接
|
n=1..25时的n,a(n)表。
|
|
例子
|
如果m>3&pi(m)=k,则n=1,2,。。。,m S_m(n)分别为c(1)、c(2)、…、,。。。,c(m-k-1),1,素(1),素(2),。。。,素数(k)。
14位于序列中,因为S_14=(1,4,9,2,6,12,7,14,13,11,5,10,3,8)是循环置换。
|
|
数学
|
f[n_]:=(a=表[Prime[k],{k,PrimePi[n]}];b=补码[Range[2,n],a];c=连接[b,{1},a]);d[n,m]:=f[n][[m]];g[r]:=(v={1};d[m]:=d[r,m];对于[t=1,!成员Q[v,d[v[-1]]]&&t<r,v=附加[v,d[v[-1]]];t++];t);做[If[!PrimeQ[r]&&r==g[r],打印[r]],{r,3000}]
|
|
交叉参考
|
囊性纤维变性。A002808号,A108515号,A108517号.
|
|
关键词
|
更多,非n
|
|
作者
|
法里德·菲鲁兹巴赫特2005年6月30日
|
|
状态
|
经核准的
|
|
|
搜索在0.009秒内完成
|