登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志

感谢所有在我们年度呼吁中捐款的人!
若要查看捐赠者名单或捐款,请参阅OEIS基金会主页

提示
问候整数序列的在线百科全书!)
A135141 A(1)=1,A(pn)=2*a(n),a(cn n)=2*a(n)+1,其中pnn= n次素数,cn n= n次复合数。 四十四
1, 2, 4,3, 8, 5,6, 9, 7,17, 16, 11,10, 13, 19,15, 12, 35,18, 33, 23,21, 14, 27,39, 31, 25,71, 34, 37,32, 67, 47,43, 29, 55,43, 29, 55,γ,y,γ,y,γ,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

1,2

评论

正整数的置换,与A07842A2.

当p为素数时,A(p)是可分的,且可由2(p素数阶)可除。

这个循环的长度是10?它是无限的吗?循环开始于10, 17, 12、11, 16, 15、19, 18, 35、29, 34, 43、26, 31, 32、67, 36, 55、159, 1055, 441、563, 100, 447、7935, 274726911、101399、207076227、23、911、167、…在Mmca中实现:NestList[a(at)γ],10, 26,此外,似乎任何非单个数字都具有无限循环。(*)Robert G. Wilson五世2月16日2008*)

记录:1, 2, 4、8, 9, 17、19, 35, 39、71, 79, 143、159, 287, 319、575, 639, 1151、1279, 2303, 2559、4607, 5119, 9215、10239, 18431, 20479、36863, 40959, 73727、81919, 147455, 163839、294911, 327679, 589823、294911, 327679, 589823、…、。(*)Robert G. Wilson五世2月16日2008*)

链接

Robert G. Wilson五世,n,a(n)n=1…10000的表

Antti Karttunen纠缠置换,2016~2017

素数分解中指数序列的索引条目

自然数排列序列的索引条目

公式

A(n)=2A135141((A049084A(n)*芯片+A066 246(n)*(1芯片)+ 1芯片,其中芯片=A010051(n)。-莱因哈德祖姆勒1月29日2014

安蒂卡特宁,十二月09日2019:(开始)

A000 7814(a(n))A07842A2(n)。

A070939(a(n))A246338(n)。

A8080791(a(n))A246370(n)。

A054029(a(n))A246367(n)。

A245702(a(n))A245703(n)。

A(A245704(n)=A245701(n)。

(结束)

例子

A(20)=33=2×16+1,因为20是第十一的复合物和A(11)=16。或者,A(20)=33=100001(bin)。换句话说,它是一个复合数,它的指数是素数,它的指数是素数。

Mathematica

a〔1〕=1;a[n]:= I[Primeq@ n,2 *a[PrimePi[n] ],2*a[n- 1 -PrimePi] n+1 ];数组[a,69 ](*)Robert G. Wilson五世2月16日2008*)

黄体脂酮素

(最大值)让PC=素数(它是什么素数),CC=复合计数:

PC〔1〕:0;

CC〔1〕:0;

PC〔2〕:1;

CC〔4〕:1;

PC[n]:=如果PrimeP(n),则1 +PC[PrimePrime(n)]否则0;

Cc[n]:=如果PrimeP(n),则0个,如果是PrimeP(n-1),则是1 +cc[n-2 ]否则1 +cc[n-1 ];

A〔1〕:1;

a[n]:=如果PrimeP(n),则2 *A[PC[n]]否则1 + 2 * a[cc[n]];

(哈斯克尔)

导入数据列表(通用索引)

A135141 n=通用索引A135141Y列表(N-1)

A135141YLIST=1:MAP F〔2〕

f x i iPr==0=2 *(A135141 $ A066 246 x)+ 1

否则=2*(A135141 iPrime)

其中iPr= A049084X

——莱因哈德祖姆勒1月29日2014

(蟒蛇)

从症状输入到素数

DEF A(n):如果n==1×2×a(PrimePi(n)),则返回1,如果IsPrime(n)为2×a(n- 1 -PrimePi(n))+1α英德拉尼尔-豪什,6月11日2017,在Mathematica代码之后

(帕里)A135141(n)=(1)=n,1,If(IsPrime(n),2*A135141(PrimePi(n)),1 +(2)A135141(n-引物(n)- 1)());安蒂卡特宁,十二月09日2019

交叉裁判

囊性纤维变性。A000 0720A000 7814A010051A02623A07842A2.

囊性纤维变性。A246366A246367(记录位置和价值)。

囊性纤维变性。A227 413(逆)

囊性纤维变性。A071574A245701A245702A245703A245704A246367A3668 54A24727用于相关和类似排列。

语境中的顺序:A2077 90 A30527 A269375*A098709 A054 A225599

相邻序列:A135138 A135139 A135140*A135142 A135143 A135144

关键词

诺恩

作者

卡塔尔尼亚马蒂拉2月13日2008

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改1月19日04:34 EST 2020。包含331031个序列。(在OEIS4上运行)