登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A205146号 对于满足1<=j<k的某些j,n除s(k)-s(j),其中s(j)=素数(j)*素数(j+1)。 9
2,3,2,3,3,4,4,5,2,3,5,5,6,4,7,5,5,3,4,5,9,6,12,6,5,5,7,4,5,5,7,15,5,12,8,6,8,4,6,7,9,10,6,8,12,5,16,16,13,8,10,9,7,7 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,1

评论

看到了吗A204892号相关序列的讨论和指南。

链接

n=1..60的n,a(n)表。

数学

s[n_x]:=s[n]=素数[n]素数[n+1];z1=400;z2=60;

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

u[m_x]:=u[m]=展平[表[s[k]-s[j],{k,2,z1},{j,1,k-1}]][[m]]

表[u[m],{m,1,z1}](*A205144号*)

v[n,h_u]:=v[n,h]=如果[IntegerQ[u[h]/n],h,0]

w[n_x]:=w[n]=表[v[n,h],{h,1,z1}]

d[n_x]:=d[n]=第一个[删除[w[n],位置[w[n],0]]]

表[d[n],{n,1,z2}](*A205145号*)

k[n_x]:=k[n]=楼层[(3+Sqrt[8 d[n]-1])/2]

m[n_x]:=m[n]=楼层[(-1+Sqrt[8 n-7])/2]

j[n_x]:=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}](*A205149号*)

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

表[(s[k[n]]-s[j[n]])/n,{n,1,z2}](*A205151*)

交叉引用

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

上下文顺序:A082597号 A112212号 A102314号*A031248 A030582号 A217438号

相邻序列:A205143 A205144号 A205145号*A205147号 A205148号 A205149号

关键字

作者

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

状态

经核准的

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

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

上次修改日期:美国东部时间2020年8月10日08:13。包含336368个序列。(运行在oeis4上。)