登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志

感谢每一位在我们的年度募捐活动中捐款的人!
要查看捐赠者列表或进行捐赠,请参见OEIS基金会主页。

提示
(问候来自整数序列在线百科全书!)
A055923号 n的分区数,其中每个部分出现质数(或0)次。
1,0,1,1,1,1,3,2,3,4,4,6,8,8,10,13,20,20,24,26,38,35,51,51,65,67,92,86,121,117,153,155,209,197,270,262,339,341,444,425,565,555,703,711,903,884,1135,1128,1397,1430,1766,1757,2193,2214,2691,2762,3344 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0.7万

链接

瓦茨拉夫·科特索维奇,n=0..10000时的n,a(n)表(Alois P.Heinz 0.1000条款)

公式

b的EULER变换,其中b有g.f.和{k>0}c(k)*x^k/(1-x^k),其中c是素数特征函数的逆EULER变换。

G、 f.:乘积(1+和(x^(i*素数(k)),k=1..无穷大),i=1..无穷大)。-弗拉德塔·乔沃维奇2005年1月8日

枫木

b: =proc(n,i)选项记住;`if`(n=0,1,`if`(i<1,0,

加(`if`(i主项(j),b(n-i*j,i-1),0),j=1..n/i)+b(n,i-1)))

结束:

a: =n->b(n$2):

顺序(a(n),n=0..60)#海因茨2014年5月31日

数学

b[n,i_x]:=b[n,i]=如果[n==0,1,如果[i<1,0,和[如果[PrimeQ[j],b[n-i*j,i-1],0],{j,1,n/i}]+b[n,i-1]];a[n_u]:=b[n,n];表[a[n],{n,0,60}](*让·弗朗索瓦·阿尔科弗2015年11月11日,之后海因茨*)

交叉引用

囊性纤维变性。A000041号,A007690号,A055922号.

上下文顺序:A075988号 A029150号 A255246*A035634号 A091563号 A161985年

相邻序列:A055920号 A055921号 A055922号*A055924号 A055925号 A055926号

关键字

作者

克里斯蒂安·G·鲍尔2000年6月23日

状态

经核准的

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

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

上次修改时间:2021年1月16日00:05 EST。包含340195个序列。(运行在oeis4上。)