登录

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

 

提示 （来自的问候整数序列在线百科全书!) A331979型 n到n的不同非平凡除数的组合数（有序分区）。 2 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 30, 0, 0, 0, 0, 0, 30, 0, 0, 0, 0, 0, 894, 0, 0, 0, 24, 0, 6, 0, 0, 0, 0, 0, 894, 0, 0, 0, 0, 0, 30, 0, 120, 0, 0, 0, 19518, 0, 0, 0, 0, 0, 126, 0, 0, 0, 0, 0, 18558, 0, 0, 0, 0, 0, 6, 0, 864 (列表;图表;参考;听;历史;文本;内部格式) 抵消 0,13 链接 阿洛伊斯·海因茨，n=0..10000时的n，a（n）表 与合成相关的序列的索引项 例子 a（12）=6，因为我们有[6，4，2]，[6，2，4]，[4，6，2]、[4，2，6]、[2，6，4]和[2，4，6]。 MAPLE公司 带有（数字理论）： a： =proc（n）局部b，l；l： =排序（[（除数（n）减去{1，n}）[]]）： b： =proc（m，i，p）选项记忆`如果`（m＝0，p！，`如果`（i＜1，0， b（m，i-1，p）+`if`（l[i]>m，0，b（m-l[i]，i-1、p+1）） 结束；忘记（b）： b（n，nops（l），0） 结束时间： seq（a（n），n=0..100）#阿洛伊斯·海因茨2020年2月3日 数学 a[n_]：=如果[n==0，1，模[{b，l=Divisors[n]~Complement~{1，n}}，b[m_，i_，p]：=b[m，i，p]=如果[m==0，p！，如果[i<1，0，b[m、i-1，p]+如果[l[i]]>m，0，b[m-l[i]，i-1，p+1]]]；b[n，长度[l]，0]]； a/@范围[0100](*Jean-François Alcover公司2020年11月17日之后阿洛伊斯·海因茨*) 交叉参考 囊性纤维变性。A018818号,A027750型,A033630型,A065205号,A070824号,A100346号,A211111型,A293813型,A293814型,A294137号,A294138型,A331927飞机,A331928飞机. 上下文中的序列：A187794号 2002年2月14日 A294887型*A005872号 A035322号 A270031型 相邻序列：A331976飞机 A331977飞机 A331978飞机*A331980型 A331981飞机 A331982飞机 关键字 非n 作者 伊利亚·古特科夫斯基2020年2月3日 状态 经核准的

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

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

上次修改时间：2024年4月23日16:40 EDT。包含371916个序列。（在oeis4上运行。）