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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A215261号 写下非半素数1、2、3、5、7、8、11、12、13、16、17。。。并在两个非半素数之间插入序列中尚未出现的最小半素数,使两个相邻整数之和成为一个非半素。 2
1, 6, 2, 9, 3, 14, 5, 22, 7, 4, 8, 21, 11, 25, 12, 15, 13, 34, 16, 26, 17, 10, 18, 35, 19, 33, 20, 55, 23, 49, 24, 39, 27, 51, 28, 38, 29, 46, 30, 58, 31, 57, 32, 65, 36, 62, 37, 77, 40, 69, 41, 85, 42, 74, 43, 82, 44, 86, 45, 91, 47, 106, 48, 87, 50, 115, 52 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
这是半素数A001358号作为A222307型等于素数A000040型.
这是自然数的排列A000027号带逆置换A211414号.
链接
阿洛伊斯·海因茨,n=1..10000时的n,a(n)表
MAPLE公司
issp:=n->非素(n)和数理论[bigomega](n)=2:
sp:=proc(n)选项记忆;局部k;如果n=1,则为4
对于1+sp(n-1)中的k,而不是issp(k),则执行od;kfi端:
nsp:=proc(n)选项记住;局部k;如果n=1,则为1
kfrom1+nsp(n-1)而issp(k)做od;kfi端:
g: =proc()真结束:
a: =proc(n)选项记忆;局部k,s;
如果n>1,则a(n-1)fi;
如果irem(n,2,'r')=1,则nsp(r+1)
对于k,else为s:=sp(k);如果g(s)而不是issp(nsp(r)+s)和
不是issp(nsp(r+1)+s),则g(s):=false;返回s fiod
fi(菲涅耳)
结束时间:
seq(a(n),n=1..80);
数学
issp[n]:=!PrimeQ[n]&&PrimeOmega[n]==2;
sp[n_]:=sp[n]=如果[n==1,4,对于[k=1+sp[n-1]!issp[k],k++];k] ;
nsp[n_]:=nsp[n]=如果[n==1,1,对于[k=1+nsp[n-1],issp[k],k++];k] ;
清除[g];g[_]=正确;
a[n_]:=a[n]=模[{q,r,k,s},如果[n>1,a[n-1]];{q,r}=商余数[n,2];如果[r==1,nsp[q+1],对于[k=1,真,k++,s=sp[k];如果[g[s]&&!issp[nsp[q]+s]&&!issp[nsp[q+1]+s],g[s]=假;返回[s]]]];
表[a[n],{n,1,80}](*Jean-François Alcover公司,2017年3月24日,翻译自枫叶*)
交叉参考
关键词
非n容易的
作者
状态
经核准的

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

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

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