OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A205677型 对于某些j<k,4除素数(k)-素数(j)的数k;对于每个这样的j,每个k出现一次。 8
4, 5, 5, 6, 7, 7, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
有关相关序列的指南,请参阅A205558型.
链接
例子
前六个术语与这些差异相匹配:
p(4)-p(2)=7-3=4=4*1
p(5)-p(2)=11-3=8=4*2
p(5)-p(4)=11-7=4=4*1
p(6)-p(3)=13-5=8=4*2
p(7)-p(3)=17-5=12=4*3
p(7)-p(6)=17-13=4=4*1
数学
s[n_]:=s[n]=素数[n];z1=200;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=4;t=d[c](*A205676型*)
k[n_]:=k[n]=楼层[(3+平方[8 t[[n]]-1])/2]
j[n]:=j[n]=t[[n]]-f[t][[n]](f[t[n]]+1)/2
表[k[n],{n,1,z2}](*A205677型*)
表[j[n],{n,1,z2}](*A205678型*)
表[s[k[n]],{n,1,z2}](*A205679型*)
表[s[j[n]],{n,1,z2}](*A205680型*)
表[s[k[n]]-s[j[n]],{n,1,z2}](*A205681型*)
表[(s[k[n]]-s[j[n]])/c,{n,1,z2}](*A205682型*)
交叉参考
关键词
非n
作者
克拉克·金伯利2012年1月30日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

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

上次修改时间:美国东部夏令时2024年6月16日19:52。包含373432个序列。(在oeis4上运行。)