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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A322326型 最多一部分具有偶数重数的n个成分的数目。 2
1, 1, 2, 4, 8, 16, 26, 64, 107, 226, 382, 859, 1488, 3124, 5628, 11326, 21629, 42274, 81420, 158002, 309129, 592798, 1181109, 2234319, 4501108, 8461706, 17211219, 32187953, 66018320, 122792362, 253549269, 469715744, 975300728, 1802165555, 3758679309, 6931995005 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,3
链接
阿洛伊斯·海因茨,n=0..1000时的n,a(n)表
例子
a(6)=26:111111、11112、11121、11211、12111、21111、222、1113、1131、1311、3111、123、132、213、231、312、321、33、114、141、411、24、42、15、51、6。
MAPLE公司
b: =proc(n,i,p,t)选项记住`如果`(n=0或i=1,`if`(n>0和
t和n::偶数,0,(n+p)/n!),b(n,i-1,p,t)+加法(`if`(t和
j: :偶数,0,b(n-i*j,i-1,p+j,t或j::偶数)/j!,j=1…n/i))
结束时间:
a: =n->b(n$2,0,错误):
seq(a(n),n=0..40);
数学
b[n_,i_,p_,t_]:=b[n,i,p,t]=如果[n==0||i==1,如果[n>0&&
t&&EvenQ[n],0,(n+p)/n!],b[n,i-1,p,t]+总和[If[t&&
EvenQ[j],0,b[n-i*j,i-1,p+j,t||EvenQ[j]]/j!,{j,1,n/i}]];
a[n]:=b[n,n,0,假];
表[a[n],{n,0,40}](*Jean-François Alcover公司2022年3月5日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A130495型A242391号A322132型.
关键词
非n
作者
阿洛伊斯·海因茨2018年12月3日
状态
已批准

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

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

上次修改时间:2024年4月25日16:23 EDT。包含371989个序列。(在oeis4上运行。)