%I#27 2020年7月27日11:23:18

%S 1,2,7,9,13,15,3,8,4,21,29,12,5,33,6,16,43,18,19,20,10,39,23,24,25,51，

%电话：27,28,11,30,79,32,14,57,35,36,37,69,22,40101,42,17,44,45,87,47,48，

%U 49,50,26,52,53,54,55,56,34,93139,60,61111,63

%N从自然数1、2、3……开始，。。。；将每个i的2*prime（i）和3*prime。

%这是对自然数的对合：两次应用它就得到了恒等式置换。

%H Chai Wah Wu，n的表，n的a（n）=1..10000</a>

%H A.B.Frizell，<A href=“http://dx.doi.org/10.1090/S0002-9904-1915-02686-8“>无限置换的某些非可枚举集</a>.Bull.Amer.Math.Soc.21（1915），no.10，495-499。

%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

%p f：=过程（t）

%p局部r；

%p如果t mod 2=0和isprime（t/2），则3*nextprime（t/2）

%p elif t mod 3=0和isprime（t/3），然后是2*prevprime（t/3）

%p elif是素数（t）then

%p r：=数量理论：-pi（t）；

%p如果isprime（r），则ithprime（2*r）

%p elif r mod 2=0且为isprime（r/2），然后为ithprime（r/2）

%p其他t

%功率因数

%p其他t

%功率因数

%p端程序：

%p序列（f（i），i=1..100）；#_罗伯特·伊斯雷尔，2014年12月26日

%t f[t_]：=模[{r}，其中[EvenQ[t]&&PrimeQ[t/2]，3NextPrime[t/2]，可除[t，3]&&PrimeQ[t/3]，2Nextprime[t/3，-1]，PrimeQ[t]，r=PrimePi[t]；其中[PrimeQ[r]、Prime[2r]、EvenQ[r]&PrimeQ[r/2]、Prime[r/2]、True、t]、True、t]]；

%t数组[f，100]（*_Jean-François Alcover_，2020年7月27日，继_Robert Israel_*之后）

%o（Python）

%o从sympy导入isprime，primepi，prevprime，nextprime，prime

%o定义A253047（n）：

%o。。。。如果n<=2：

%o。。。。。。。。返回n

%o。。。。如果n==3：

%o。。。。。。。。返回7

%o。。。。q2，r2=divmod（n，2）

%o。。。。如果r2:

%o。。。。。。。。q3，r3=divmod（n，3）

%o。。。。。。。。如果r3：

%o。。。。。。。。。。。。如果是质数（n）：

%o。。。。。。。。。。。。。。。。m=素数（n）

%o。。。。。。。。。。。。。。。。如果是质数（m）：

%o。。。。。。。。。。。。。。。。。。。。返回素数（2*m）

%o。。。。。。。。。。。。。。。。x、 y=divmod（m，2）

%o。。。。。。。。。。。。。。。。如果不是y：

%o。。。。。。。。。。。。。。。。。。。。如果是质数（x）：

%o。。。。。。。。。。。。。。。。。。。。。。。。返回素数（x）

%o。。。。。。。。。。。。返回n

%o。。。。。。。。如果是质数（q3）：

%o。。。。。。。。。。。。返回2*前缀（q3）

%o。。。。。。。。返回n

%哦。。。。如果isprime（q2）：

%o。。。。。。。。返回3*nextprime（q2）

%o。。。。2014年12月27日，return n#_ Chai Wah Wu_

%Y参见A064614、A253046、A25304。

%K nonn公司

%O 1,2号机组

%A _N.J.A.Sloane，2014年12月26日

%E定义由罗贝尔·伊斯雷尔提供，2014年12月26日

%2014年12月27日，Chai Wah Wu_将E偏移更改为1