登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: 编号:a205146
显示1-1个结果(共1个)。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A205146型 最小k,使得n除以满足1<=j<k的j的s(k)-s(j),其中s(j)=素数(j)*素数(j+1)。 +0
9
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, 16, 4, 10, 5, 14, 5, 8, 10, 20, 16, 4, 6, 18, 12, 14, 13, 7, 6, 9, 11 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
请参见A204892型用于相关序列的讨论和指南。
链接
米歇尔·马库斯,n=1..10000时的n,a(n)表
数学
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}](*2005年2月45日*)
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}](*A205149型*)
表[s[k[n]]-s[j[n]],{n,1,z2}](*A205150型*)
表[(s[k[n]]-s[j[n]])/n,{n,1,z2}](*A205151型*)
黄体脂酮素
(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日
交叉参考
囊性纤维变性。A006094号,A204892型,A205143型.
关键词
非n
作者
克拉克·金伯利2012年1月25日
扩展
来自的更多条款米歇尔·马库斯2021年7月23日
状态
经核准的
第页1

搜索在0.005秒内完成

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

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

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