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

 


A239737型
n的分区p的数目,使得p中具有多重性1的数的数目是一部分,或者具有多重性>1的数的数目是一部分。
6
0, 1, 1, 2, 2, 5, 7, 10, 13, 21, 28, 38, 54, 77, 99, 137, 180, 236, 306, 398, 504, 644, 807, 1018, 1278, 1599, 1972, 2458, 3039, 3743, 4592, 5659, 6884, 8436, 10235, 12445, 15021, 18204, 21842, 26334, 31501, 37746, 44956, 53707, 63657, 75738, 89536, 106057
抵消
0,4
配方奶粉
a(n)+A241417号(n)=A000041号(n) 对于n>=0。
例子
a(6)统计这7个分区:42、411、321、3111、2211、21111、111111。
数学
z=30;f[n_]:=f[n]=整数分区[n];u[p_]:=长度[DeleteDuplicates[Select[p,Count[p,#]==&]]];e[q_]:=长度[DeleteDuplicates[Select[q,Count[q,#]>1&]]]
表[计数[f[n],p_/;成员Q[p,u[p]]],{n,0,z}](*A241413型*)
表[计数[f[n],p_/;成员Q[p,u[p]]&&成员Q[p,e[p]]],{n,0,z}](*A241414型*)
表[Count[f[n],p_/!成员Q[p,u[p]]&&成员Q[p,e[p]]],{n,0,z}](*A241415型*)
表[计数[f[n],p_/;成员Q[p,u[p]]&&!成员Q[p,e[p]]],{n,0,z}](*A241416型*)
表[Count[f[n],p_/!成员Q[p,u[p]]&&!成员Q[p,e[p]]],{n,0,z}](*A241417号*)
表[计数[f[n],p_/;成员Q[p,u[p]]||成员Q[p,e[p]]],{n,0,z}](*A239737型*)
关键字
非n,容易的
作者
克拉克·金伯利2014年4月23日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年9月21日09:30。包含376084个序列。(在oeis4上运行。)