%我#2020年8月31日19:49:40

%S 1,1,4,5227766955419279085287303437156115371421772559819369，

%电话：132348505150329265211927355539706668772869353964510735，

%电话：76982966985359299067994313494696568114286622476419617941586216290980309944299583862405509035023556420199819453960482395657232596725626

%N多集合{1，2，2，3，3，…，nXn}的集合分区数。

%C超本原A006939（n）因子分解数>1.-_Gus Wiseman_，2020年8月21日

%H<a href=“/index/Par#part”>与分区相关的序列的索引条目</a>

%F a（n）=A317826（A033312（n+1））=A37826（（n+1-1） =A001055（A076954（n））。

%F a（n）=A001055（A006939（n））。-_Gus Wiseman_，2020年8月21日

%F a（n）=A318284（A002110（n））_安德鲁·霍罗伊，2020年8月31日

%e对于n=2，我们有一个多集{1，2，2}，它可以被划分为{{1}，{2}、{2}}或{{1，2}、{2{}或}，因此a（2）=4。

%p g：=proc（n，k）选项记忆；使用数字理论`如果`（n>k，0，1）+

%p`if`（isprime（n），0，add（`if`）（d>k或max（factorset（n/d））>d，0，

%p g（n/d，d）），d=除数（n）减去{1，n}）

%p端：

%p a：=n->g（mul（ithprime（i）^i，i=1..n）$2）：

%p序列（a（n），n=0..5）；#_阿洛伊斯·海因茨，2020年7月26日

%t chern[n_]：=乘积[素数[i]^（n-i+1），{i，n}]；

%t facs[n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，选择[facs[n/d]，Min@@#>=d&]]，{d，Rest[Divisors[n]]}]；

%t表[长度[facs[chern[n]]]，{n，3}]（*_Gus Wiseman_，2020年8月21日*）

%o（PARI）\\计数见A318284。

%o a（n）=｛if（n==0，1，count（向量（n，i，i）））｝\\_Andrew Howroyd_，2020年8月31日

%Y参考A033312，A317826。

%Y A317828的后续序列。

%Y A000142统计同一多集的子多集。

%Y A022915统计同一多集的排列。

%Y A337069是一个严格的案例。

%Y A001055统计因子分解。

%Y A006939列出了超基本数或切尔诺夫数。

%Y A076716统计阶乘的阶乘分解。

%可以使用Y A076954代替A006939（参见A307895、A325337）。

%Y A181818列出了超初级产品，并补充了A336426。

%Y参考A000178、A002110、A022559、A027423、A124010、A303279、A318284、A322583、A336417、A336496。

%K nonn公司

%O 0.3

%A _Antti Karttunen，2018年8月10日

%E a（0）=1预处理，a（7）由_Alois P.Heinz_添加，2020年7月26日

%E a（8）-a（13）摘自Andrew Howroyd_，2020年8月31日