检验过的

经核准的

提出

检验过的

编辑

提出

米歇尔·马库斯（Michel Marcus），<a href=“/A205146型/b205146.txt“>n表，n=1..10000时为a（n）</a>

2，3，2，3，3，4，5，2，3，5，6，4，7，5，7，5，8，3，4，5，9，6，5，7，3，7，4，5，5，15，5，12，8，6，8，7，4，6，7，7，9，10，6，8，12，7，10，16，5，16，13，8，9,7,16,4,10,5,14,5,8,10,20,16,4,6,18,12,14,13, 7,6,9,11

（PARI）s（m）=素数（m）*素数（m+1）；

isok（k，n）=我的（sk=s（k））；对于（j=1，k-1，如果（！Mod（sk-s（j），n），返回（k））；

a（n）=我的（k=1）；而（！isok（k，n），k++）；k\\米歇尔·马库斯2021年7月23日

来自的更多条款米歇尔·马库斯2021年7月23日

经核准的

编辑

_克拉克·金伯利(ck6号机组(自动变速箱)埃文斯维尔.教育),_,2012年1月25日

OEIS服务器: https://oeis.org/edit/global/285

提出

经核准的

编辑

提出

分配最少 k个 这样的 那个 n个 划分 秒(k个)-秒(j个)对于 一些 j个 令人满意的 克拉克1<=j个<k个,哪里 金伯利秒(j个)=首要的(j个)*首要的(j个+1).

2, 3, 2, 3, 3, 4, 4, 5, 2, 3, 5, 5, 6, 4, 7, 5, 7, 5, 8, 3, 4, 5, 9, 6, 12, 6, 5, 7, 3, 7, 4, 5, 5, 7, 15, 5, 12, 8, 6, 8, 7, 4, 6, 7, 7, 9, 10, 6, 8, 12, 7, 10, 16, 5, 16, 13, 8, 10, 9, 7

1,1

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

s[n_]：=s[n]=素数[n]素数[n+1]；z1=400；z2=60；

表[s[n]，{n，1，30}](*A006094号*)

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

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

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}](*A205145型*)

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}](*A205146型*)

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

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

表[s[j[n]]，{n，1，z2}](*2005年2月49日*)

表[s[k[n]]-s[j[n]]，{n，1，z2}](*A205150型*)

表[（s[k[n]]-s[j[n]]）/n，{n，1，z2}](*A205151型*)

囊性纤维变性。A006094号,A204892型,A205143型.

分配

非n

克拉克·金伯利（ck6（AT）evansville.edu），2012年1月25日

经核准的

编辑

分配给克拉克·金伯利

分配

经核准的