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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A045450型 将n划分为不同素数的素数的数目。 8
1, 0, 1, 1, 1, 2, 0, 2, 1, 2, 2, 3, 0, 4, 2, 4, 3, 4, 2, 5, 3, 5, 3, 5, 3, 6, 5, 5, 5, 7, 5, 9, 5, 7, 8, 8, 6, 11, 8, 11, 9, 12, 10, 14, 11, 15, 12, 15, 13, 18, 17, 17, 16, 18, 18, 23, 20, 22, 23, 25, 23, 30, 26, 28, 29, 32, 32, 36, 34, 38, 38, 41, 41, 47, 45, 47, 48, 50, 54, 58, 57, 60, 63 (列表;图表;参考;;历史;文本;内部格式)
抵消
5、6
链接
阿洛伊斯·海因茨,n=5..5000时的n,a(n)表
例子
a(50)=15,因为有15个50分块成不同质数部分的质数:2+7+11+13+17=2+5+11+13+19=2+5+7+17+19=2+5+7+13+23=2+3+5+17+23=2+3+5+5+11+29=2+17+31=2+11+31=2+7+37=2+7+41=2+7+41=2+5+43+43=19+31=13+37=3+47。
MAPLE公司
s: =proc(n),如果n<1,则为0,否则为素数(n)+s(n-1)fi结束:
b: =proc(n,i)选项记忆;展开(‘if’(n=0,1,‘if’(s(i)<n,0,
b(n,i-1)+(p->`如果`(p>n,0,x*b(n-p,i-1
结束时间:
a: =n->(p->加(`if`(i素数(i),系数(p,x,i),0)
,i=2..度(p))(b(n,数值[pi](n)):
seq(a(n),n=5..100)#阿洛伊斯·海因茨2017年9月18日
数学
partprim[n_]:=模块[{sp,spq,sps},
sp=子集[Prime[Range[PrimePi[n]]];
spq=选择[sp,PrimeQ@长度@# &];
sps=选择[spq,n==Plus@#&];
sps//长度//返回];
表[partprim[n],{n,5,80}](*安德烈斯·西卡廷2017年9月17日*)
s[n_]:=s[n]=如果[n<1,0,素数[n]+s[n-1]];
b[n_,i_]:=b[n,i]=展开[If[n==0,1,If[s[i]<n,0,b[n、i-1]+函数[p,If[p>n,0、x*b[n-p,i-1]]][素数[i]]];
a[n_]:=函数[p,和[If[PrimeQ[i],系数[p,x,i],0],{i,2,指数[p,x]}]][b[n,PrimePi[n]]];
表[a[n],{n,5,100}](*Jean-François Alcover公司2021年6月11日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A000586号.
关键词
非n
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年3月28日09:04。包含371240个序列。(在oeis4上运行。)