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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A260179型 素数pr(k),使得pr(k)+pr(k+1)+pr(k+6)+pr-(k+7)=pr(k+2)+pr(k+3)+rp(k+4)+pro(k+5)。
17, 23, 71, 149, 173, 233, 331, 359, 389, 419, 431, 503, 677, 727, 839, 853, 937, 971, 1019, 1201, 1229, 1277, 1327, 2213, 2221, 2237, 2593, 2689, 2797, 2999, 3019, 3167, 3221, 3253, 3821, 3823, 4027, 4111, 4201, 4219, 4231, 4801, 5147, 5309, 5407, 5437 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,1
链接
阿米拉姆·埃尔达尔,n=1..10000时的n,a(n)表(R.J.Mathar第1..500条)
例子
从71开始,连续的8个素数是71、73、79、83、89、97、101、103;它们满足71+73+101+103=79+83+89+97,因此71在序列中。
MAPLE公司
n:=1;
Lp:=[[0,1,6,7],[2,3,4,5]];
因为我从一开始
如果加(ithprime(i+j),j=op(1,Lp))=加(ithprime(i+j),j=op(2,Lp
printf(“%d%d\n”,n,ithprime(i));
n:=n+1;
结束条件:;
结束do:#R.J.马塔尔2015年8月6日
数学
pr8Q[lst_]:=使用[{tadr=TakeDrop[lst,{3,6}]},总计[tadr[[1]]]==总计[tader[[2]]]];Transpose[Select[Partition[Prime[Range[1000]],8,1],pr8Q]][1](*程序使用Mathematica 10.2版的TakeDrop函数*)
交叉参考
囊性纤维变性。A022885号.
关键词
非n
作者
哈维·P·戴尔,2015年7月17日
状态
经核准的

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

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

最后修改时间:美国东部时间2024年6月4日06:06。包含373089个序列。(在oeis4上运行。)