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

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: a331982-编号:a331982
显示1-1,共找到1个结果。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A331981飞机 n到不同奇数素数的合成数(有序分区)。 +10
1, 0, 0, 1, 0, 1, 0, 1, 2, 0, 2, 1, 2, 1, 2, 6, 4, 1, 4, 7, 4, 12, 4, 13, 6, 12, 28, 18, 28, 19, 6, 25, 52, 24, 54, 30, 56, 31, 98, 156, 102, 37, 104, 157, 150, 276, 150, 175, 154, 288, 200, 528, 246, 307, 226, 666, 990, 780, 1038, 679, 348, 799, 1828, 1272, 1162, 1164 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,9
链接
阿洛伊斯·海因茨,n=0..10000时的n,a(n)表
例子
a(16)=4,因为我们有[13,3],[11,5],[5,11]和[3,13]。
枫木
s: =proc(n)选项记住`如果`(n<1,0,ithprime(n+1)+s(n-1))结束:
b: =proc(n,i,t)选项记忆`如果`(s(i)<n,0,`如果`(n=0,t!,(p
->`如果`(p>n,0,b(n-p,i-1,t+1))(ithprime(i+1))+b(n,i-1(t)))
结束时间:
a: =n->b(n,数值理论[pi](n),0):
seq(a(n),n=0..72)#阿洛伊斯·海因茨2020年2月3日
数学
s[n_]:=s[n]=如果[n<1,0,素数[n+1]+s[n-1]];
b[n_,i_,t_]:=b[n,i,t]=如果[s[i]<n,0,如果[n==0,t!,如果[#>n,0;
a[n_]:=b[n,PrimePi[n],0];
a/@范围[0,72](*让-弗朗索瓦·奥尔科弗2020年11月9日之后阿洛伊斯·海因茨*)
交叉参考
关键字
非n
作者
状态
经核准的
第页1

搜索在0.004秒内完成

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

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

上次修改时间:2024年6月24日00:53 EDT。包含373661个序列。(在oeis4上运行。)