%I#8 2015年12月6日23:23:21

%S 1,4,6,14,32,65,84111124212236320380465517584636876，

%电话：955212625702962544883

%N个数m，使得第一个m个自然数S_m（N）=if（1<=N<m-pi（m），c（N），素数（N-m-pi。

%C对于n>1，a（n）是复合的，因为如果m是素数，那么S_m（m）=m，所以在这种情况下S_m不能是循环置换。

%e如果m>3&pi（m）=k，则n=1,2，。。。，m S_m（n）分别为c（1）、c（2）、…、，。。。，c（m-k-1），1，素（1），素（2），。。。，素数（k）。

%e 14在序列中，因为S_14=（1，4，9，2，6，12，7，14，13，11，5，10，3，8）是循环置换。

%t f[n_]：=（a=表[素数[k]，{k，素数Pi[n]}]；b=补码[范围[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｝]

%Y参见A002808、A108515、A1085127。

%K更多，nonn

%O 1,2号机组

%阿里德·菲鲁兹巴赫，2005年6月30日