A205698-OEIS公司

A205698型

数字k，其中7除以素数（k）-素数（j），得到一些j<k；对于每个这样的j，每个k出现一次。

7, 8, 9, 11, 11, 12, 12, 13, 14, 15, 15, 16, 17, 17, 17, 18, 18, 18, 19, 19, 20, 20, 21, 21, 21, 21, 22, 22, 22, 23, 23, 24, 24, 24, 24, 25, 25, 25, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 28, 28, 28, 28, 29, 29, 29, 30, 30, 30, 31, 31, 31, 31, 32, 32, 32, 32, 32

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

抵消

1,1

有关相关序列的指南，请参阅2005年2月58日.

链接

n=1..67时的n，a（n）表。

例子

前六个术语与这些差异相匹配：

p（7）-p（2）=17-3=14=7*2

p（8）-p（3）=19-5=14=7*2

p（9）-p（1）=23-2=21=7*3

p（11）-p（2）=31-3=28=7*4

p（11）-p（7）=31-17=14=7*2

p（12）-p（1）=37-2=35=7*5

数学

s[n_]：=s[n]=素数[n]；z1=1200；z2=80；

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

表[s[n]，{n，1，30}](*A000040型*)

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

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

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]]

c=7；t=d[c](*A205697型*)

k[n]：=k[n]=楼层[（3+Sqrt[8t[[n]]-1]）/2]

j[n]：=j[n]=t[[n]]-f[t][[n]]（f[t[n]]+1）/2

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

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

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

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

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

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

交叉参考

囊性纤维变性。A205558型,A204892型,A204890型,A205699型,A205703型.

上下文中的顺序：A106108号 A120309号 A035705美元*A210147型 A340741型 A097338号

相邻序列：A205695型 A205696型 A205697型*A205699型 A205700型 A205701型

关键词

非n

作者

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

状态

经核准的