A204908-OEIS公司

A204908型

最小k，使得n对[1，k]中的某个j除以s（k）-s（j），其中s（k）是第k个素数>=5。

2, 2, 3, 3, 5, 3, 6, 4, 7, 5, 8, 5, 9, 6, 10, 7, 11, 7, 12, 9, 13, 8, 14, 8, 16, 9, 15, 11, 18, 10, 17, 10, 18, 11, 21, 11, 20, 12, 21, 13, 22, 13, 23, 16, 23, 14, 24, 14, 25, 16

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

抵消

1,1

请参阅A204892型用于相关序列的讨论和指南。

链接

王金元，n=1..1000时的n，a（n）表

数学

s[n_]：=s[n]=素数[n+2]；z1=400；z2=50；

表[s[n]，{n，1，30}]（*素数>=5*）

u[m_]：=u[m]=扁平[表[s[k]-s[j]，{k，2，z1}，{j，1，k-1}][[m]]

表[u[m]，{m，1，z1}](*A204906型*)

v[n_，h]：=v[n，h]=如果[IntegerQ[u[h]/n]，h，0]

w[n_]：=w[n]=表格[v[n，h]，{h，1，z1}]

d[n_]：=d[n]=第一个[删除[w[n]，位置[w[n]，0]]

表[d[n]，{n，1，z2}](*A204907型*)

k[n_]：=k[n]=楼层[（3+平方[8 d[n]-1]）/2]

m[n_]：=m[n]=楼层[（-1+平方[8 n-7]）/2]

j[n]：=j[n]=d[n]-m[d[n]]（m[d[n]+1）/2

表[k[n]，{n，1，z2}](*A204908型*)

表[j[n]，{n，1，z2}](*204年9月*)

表[s[k[n]]，{n，1，z2}](*2010年2月*)

表[s[j[n]]，{n，1，z2}](*A204911型*)

黄体脂酮素

（PARI）a（n）={my（p=5，k=1）；while（sum（i=5，p-1，isprime（i）&&（p-i）%n==0）==0，p=下一素数（p+1）；k++）；k；}\\王金源2020年1月30日

交叉参考

囊性纤维变性。A000040型,A204892型,204900加元.

上下文中的序列：A204987型 102347元 A230846型*A340265型 A339696飞机 A263027型

相邻序列：A204905型 A204906型 A204907型*204年9月 A204910型 A204911型

关键字

非n

作者

克拉克·金伯利2012年1月20日

状态

经核准的