%我#47 2017年9月9日19:28:52

%S 1,3,5,9,7,15,11,21,25,27,13,33,17,39,35,45,19,51,23,57,55,63,29,69，

%电话：49,75,65,81,31,87,37,93,85,99,77105,41111,95117,43123,47129115，

%U 135,53141121147125153,59159,91165145171,61177,67183155189119,71201175207,73213,79219185225143231,83237205243,89249133255单位

%N a（1）=1；对于n>1，a（n）=A078898（n）-第k个数字，其中A055396（k）=A055395（n）+1，其中A0550396（n）是最小素数除以n的指数。

%奇数的置换。

%C对于n>=2，a（n）=A078898（n）-第k个数，其中A055396（k）=A055396（n）+1。换言之，a（n）表示在含有n的筛的同一列中，埃拉托斯特尼筛（参见A083140、A083221）中紧邻n的数字。

%C A250471（n）=（a（n）+1）/2是自然数的置换。

%C在所有素数项中都与A003961一致_M.F.Hasler，2016年9月17日。注：素数是A280693的一个适当子集，它给出了所有n，使得a（n）=A003961（n）_Antti Karttunen，2017年3月8日

%H Antti Karttunen，n的表，n=1..5002的a（n）</a>

%F a（1）=1，a（n）=A083221（A055396（n）+1，A078898（n））。

%F a（n）=A249817（A003961（A249818（n）））。

%F其他身份。对于所有n>=1：

%F A250470（a（n））=A268674（a（n））=n。[A250470和A268674为该函数提供左逆。]

%F a（2n）=A016945（n-1）。[按单调顺序将偶数映射到形式6n+3的数字。]

%F a（A016945（n-1））=A084967（n）。[其本身映射到A084967等的术语，参见A083140的示例部分。]

%F a（A000040（n））=A000040。[每个质数都映射到下一个质数。]

%F对于所有n>=2，A055396（a（n））=A055397（n）+1。[更一般的规则。]

%F A046523（a（n））=A283465（n）.-_Antti Karttunen，2017年3月8日

%ta[1]=1；a[n_]：=如果[PrimeQ[n]，NextPrime[n]、m1=p1=FactorInteger[n][[1，1]]；对于[k1=1，m1<=n，m1+=p1；如果[m1==n，中断[]]；如果[FactorInteger[m1][[1，1]]==p1，k1+]]；m2=p2=下一个素数[p1]；对于[k2=1，True，m2+=p2，如果[FactorInteger[m2][[1，1]]==p2，k2++]；如果[k1+2==k2，返回[m2]]]；阵列[a，100]（*_Jean-François Alcover_，2016年3月8日*）

%t g[n_]：=如果[n==1，0，PrimePi@FactorInteger[n][[1，1]]]；函数[s，MapIndexed[Lookup[s，g[First@#2]+1][#1]]-Boole[First@#2==1]&，#]&@Map[Position[Lookup[s，g@#]，#][1，1]]&，Range@120]]@位置索引@数组[g，10^4]]（*_Michael De Vlieger_，2017年3月8日，版本10*）

%o（方案，两个备选方案）

%o（定义（A250469 n）（A249817（A003961（A24981 n）））

%o（定义（A250469 n）（如果（=1 n）n（A083221bi（+（A055396 n）1）（A078898 n）））；；A083221中给出的A083221bi代码。

%Y请参阅A000040、A003961、A016945、A046523、A055396、A078898、A083140、A083221、A084967、A249744、A249810、A249820、A24817、A24981、A250471、A266645、A280692、A28069、A283465。

%Y参见A250470和A268674（左逆，后者更简单）。

%K nonn公司

%O 1,2号机组

%2014年12月6日