A076368-OEIS公司

A076368号

a（1）=1；对于n>1，a（n）=素数（n）-素数（n-1）+1。

1, 2, 3, 3, 5, 3, 5, 3, 5, 7, 3, 7, 5, 3, 5, 7, 7, 3, 7, 5, 3, 7, 5, 7, 9, 5, 3, 5, 3, 5, 15, 5, 7, 3, 11, 3, 7, 7, 5, 7, 7, 3, 11, 3, 5, 3, 13, 13, 5, 3, 5, 7, 3, 11, 7, 7, 7, 3, 7, 5, 3, 11, 15, 5, 3, 5, 15, 7, 11, 3, 5, 7, 9, 7, 7, 5, 7, 9, 5, 9, 11, 3, 11, 3, 7, 5, 7, 9, 5, 3, 5, 13, 9, 5, 9, 5, 7

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

n在中的出现次数A060646号或中的第n个素数A076367号.

序列A060646级,A076367号,A076368号用于证明30的属性。请参见A048597号,A060646号以及相应的参考文献。可证明[Bonse]，如果n>3，则a（n）>=3。

对于n>1，a（n）是基素数（n-1）中素数（n）的位数之和-R.J.卡诺2016年12月31日；已由更正米歇尔·马库斯2017年1月1日

链接

文森佐·利班迪，n=1..5000时的n，a（n）表

H.Bonse，U.ber eine bekannte Eigenshaft der Zahl 30和ihre Verallgemeinerung《数学档案》。u.Physik（3）第12卷（1907）292-295。

数学

c[x_，j_]：=x+1-（j+素数[j]）c[x，0]=x；a=1000；t=表[0，｛a｝]；t1=表[0，{a}]；表[fl=1；（*打印[“%”，u，“#”]；*）Do[s=c[u，n]；如果[Equal[fl，1]&Equal[符号[s]，-1]，打印[n]；t[[u]]=n；t1[[u]]=素数[n]；fl=0]，{n，1，u}]，{u，1，a}]//t(*=A060646号*)//t1时间(*=A076367号*)表[Count[t，j]，{j，1，PrimePi[a]}]

（*第二个节目*）

表[如果[n==1，1，（素数@n-素数[n-1]）+1]，{n，97}](*迈克尔·德弗利格2016年12月31日*）

连接[{1}，差异[Prime[Range[100]]]+1](*哈维·P·戴尔2019年3月13日*）

黄体脂酮素

（Magma）[1]猫[NthPrime（n）-NthPrime（n-1）+1:n in[1..80]]//文森佐·利班迪2017年1月1日

交叉参考

囊性纤维变性。A048597号,A060646号,A076367号。另请参阅A076366号.

囊性纤维变性。A000040型,A001223号.

上下文中的序列：A131320型 A020483号 A119912年*A279931型 A071049号 A171637号

相邻序列：A076365号 A076366号 A076367号*A076369美元 A076370美元 A076371号

关键词

非n

作者

拉博斯·埃利默2002年10月14日

扩展

更简单的描述来自弗拉德塔·乔沃维奇2003年3月29日

状态

经核准的