OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

徽标
提示
(来自的问候整数序列在线百科全书!)
A241514型 n的分区数,使得(重数为1的部分数)不是一个部分,并且(部分数>1)不是一部分。 5
1, 0, 2, 2, 2, 2, 4, 3, 8, 9, 16, 19, 30, 32, 54, 62, 86, 103, 140, 161, 224, 255, 337, 402, 520, 600, 787, 914, 1167, 1383, 1717, 2026, 2549, 2969, 3664, 4347, 5297, 6203, 7617, 8913, 10760, 12683, 15225, 17828, 21424, 25009, 29784, 34954, 41414, 48274 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,3
链接
配方奶粉
a(n)+2015年2月15日(n)=A000041号(n) 对于n>=0。
例子
a(6)统计这4个分区:6、33、222、111111。
数学
z=30;f[n_]:=f[n]=整数分区[n];u[p_]:=长度[DeleteDuplicates[Select[p,Count[p,#]==1&]]];
表[计数[f[n],p_/;成员Q[p,u[p]]和成员Q[p,长度[p]-计数[p,1]],{n,0,z}](*A241511型*)
表[Count[f[n],p_/!成员Q[p,u[p]]和成员Q[p,长度[p]-计数[p,1]],{n,0,z}](*A241512型*)
表[计数[f[n],p_/;成员Q[p,u[p]]&&!成员Q[p,长度[p]-计数[p,1]],{n,0,z}](*A241513型*)
表[Count[f[n],p_/!成员Q[p,u[p]]&&!成员Q[p,长度[p]-计数[p,1]],{n,0,z}](*A241514型*)
表[计数[f[n],p_/;MemberQ[p,u[p]]||MemberQ[p,Length[p]-Count[p,1]]],{n,0,z}](*A241515型*)
交叉参考
关键词
非n,容易的
作者
克拉克·金伯利2014年4月24日
状态
经核准的

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

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

最后修改时间:美国东部时间2024年5月13日23:15。包含372524个序列。(在oeis4上运行。)