%我
%第1、2、3、5、13、31、43251696124971节
%N个数m,使得第一个m个自然数T_m(N)=如果(1<=N<=pi(m),素数(N),c(N-pi(m)-1))是循环置换,其中c(k)是第k个复合数,c(0)=1(对于每个自然数k,c(k-1)=A018252(k))。
%n>1a(n)是素数,因为如果m是一个复合数,那么T峎m(m)=m,所以在这种情况下T峎m不能是循环置换。到质数(4420)没有进一步的期限。-_Farideh Firoozbakht,2005年6月29日
%如果m>3&m=prime(k),那么对于n=1,2,…,m T ium(n)分别是素数(1),素数(2),…,素数(k),1,4,…,m-1。
%e 31在序列中是因为T峎31=(1,2,3,5,11,31,30,28,26,24,21,16,9,23,20,15,8,19,14,6,13,4,7,17,10,29,27,25,22,18,12)是一个循环置换。
%t f[n_9]:=(a=表[Prime[k],{k,PrimePi[n]}];b=补码[Range[n],a];c=Join[a,b]);d[n_u,m_9]:=f[n][m]];g[r_u]:=(v={1};d[mü]:=d[Prime[r],m];对于[t=1!MemberQ[v,d[v[[-1]]]&&t<Prime[r],v=Append[v,d[v[-1]]]];t++];t);w={1};Do[If[Prime[r]==g[r],w=Append[w,Prime[r]];Print[w]],{r,4420}](Firoozbakht)
%Y比照A018252。
%参见A108516、A108517。
%再来一点,不是吗
%O 1,2号
%A Mehdi Khorrami(mymontain(AT)yahoo.com),2005年6月27日
%更多条款请参考2005年6月29日Farideh Firoozbakht
|