A299201 -id:A299201 - cp's OEIS frontend

A387327 Number of ways to choose an integer partition of each prime factor of n (with multiplicity).

1, 2, 3, 4, 7, 6, 15, 8, 9, 14, 56, 12, 101, 30, 21, 16, 297, 18, 490, 28, 45, 112, 1255, 24, 49, 202, 27, 60, 4565, 42, 6842, 32, 168, 594, 105, 36, 21637, 980, 303, 56, 44583, 90, 63261, 224, 63, 2510, 124754, 48, 225, 98, 891, 404, 329931, 54, 392, 120

Offset: 1

Gus Wiseman, Sep 05 2025

			The a(1) = 1 through a(7) = 15 ways:
  (1)  (2)   (3)    (2)(2)    (5)      (2)(3)     (7)
       (11)  (21)   (11)(2)   (32)     (11)(3)    (43)
             (111)  (2)(11)   (41)     (2)(21)    (52)
                    (11)(11)  (221)    (11)(21)   (61)
                              (311)    (2)(111)   (322)
                              (2111)   (11)(111)  (331)
                              (11111)             (421)
                                                  (511)
                                                  (2221)
                                                  (3211)
                                                  (4111)
                                                  (22111)
                                                  (31111)
                                                  (211111)
                                                  (1111111)

For constant partitions we have A061142, for prime indices A355731.
For prime indices instead of factors we have A299200.
The version for distinct choices is A387133, zeros A387326.
A000041 counts integer partitions, strict A000009.
A112798 lists prime indices, row sums A056239 or A066328, lengths A001222.
A387110 counts choices of distinct distinct integer partitions of each prime index.
Cf. A063834, A120383, A299201, A335433, A335448, A355741, A357977, A383706, A387115, A387120, A387136.

Table[Length[Tuples[IntegerPartitions/@Flatten[ConstantArray@@@FactorInteger[n]]]],{n,30}]

A301366 Regular triangle where T(n,k) is the number of same-trees of weight n with k leaves.

Original entry on oeis.org

1, 1, 1, 1, 0, 1, 1, 1, 2, 2, 1, 0, 0, 0, 1, 1, 1, 1, 5, 3, 3, 1, 0, 0, 0, 0, 0, 1, 1, 1, 2, 6, 12, 14, 12, 6, 1, 0, 1, 0, 3, 0, 3, 0, 2, 1, 1, 0, 0, 1, 7, 10, 10, 5, 3, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 3, 7, 21, 41, 58, 100, 100, 94, 48, 20

Offset: 1

Gus Wiseman, Mar 19 2018

A same-tree of weight n > 0 is either a single node of weight n, or a finite sequence of two or more same-trees whose weights are all the same and sum to n.

			Triangle begins:
1
1   1
1   0   1
1   1   2   2
1   0   0   0   1
1   1   1   5   3   3
1   0   0   0   0   0   1
1   1   2   6  12  14  12   6
1   0   1   0   3   0   3   0   2
1   1   0   0   1   7  10  10   5   3
1   0   0   0   0   0   0   0   0   0   1
1   1   3   7  21  41  58 100 100  94  48  20
The T(8,4) = 6 same-trees: (4(2(11))), (4((11)2)), ((22)(22)), ((2(11))4), (((11)2)4), (2222).

Andrew Howroyd, Table of n, a(n) for n = 1..1275 (rows 1..50)

Last entries of each row give A006241. Row sums are A281145.

Cf. A003238, A008284, A055277, A063834, A273873, A289501, A294080, A298422, A298426, A299201, A299203, A300442, A300443, A301343, A301364-A301368.

sametrees[n_]:=Prepend[Join@@Table[Tuples[sametrees/@ptn],{ptn,Select[IntegerPartitions[n],Length[#]>1&&SameQ@@#&]}],n];
Table[Length[Select[sametrees[n],Count[#,_Integer,{-1}]===k&]],{n,12},{k,n}]

A(n)={my(v=vector(n)); for(n=1, n, v[n] = x + sumdiv(n, d, v[n/d]^d)); apply(p -> Vecrev(p/x), v)}
{my(v=A(16)); for(n=1, #v, print(v[n]))} \\ Andrew Howroyd, Aug 20 2018

A322077 In the ranked poset of integer partitions ordered by refinement, number of integer partitions coarser (greater) than or equal to the integer partition whose multiplicities are the prime indices of n in weakly decreasing order.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 5, 5, 8, 6, 7, 9, 11, 10, 12, 13, 15, 18, 22, 15, 19, 14, 30, 24, 22, 21, 40, 23, 42, 29, 56, 36, 27, 29, 34, 47, 77, 41, 39, 40

Offset: 1

Gus Wiseman, Nov 25 2018

This partition (reversed row n of A305936) is generally not the same as the integer partition with Heinz number n. For example, 12 is the Heinz number of (2,1,1), while the integer partition whose multiplicities are (2,1,1) is (3,2,1,1).

			The list of a(1) = 1 through a(18) = 18 coarser partitions:
  ()  (1)  (2)   (3)   (3)    (4)    (4)     (6)    (6)     (5)     (5)
           (11)  (21)  (21)   (22)   (22)    (33)   (33)    (32)    (32)
                       (111)  (31)   (31)    (42)   (42)    (41)    (41)
                              (211)  (211)   (51)   (51)    (221)   (221)
                                     (1111)  (321)  (222)   (311)   (311)
                                                    (321)   (2111)  (2111)
                                                    (411)           (11111)
                                                    (2211)
.
  (7)     (6)       (6)      (7)      (10)    (7)        (9)
  (43)    (33)      (33)     (43)     (55)    (43)       (54)
  (52)    (42)      (42)     (52)     (64)    (52)       (63)
  (61)    (51)      (51)     (61)     (73)    (61)       (72)
  (322)   (222)     (222)    (322)    (82)    (322)      (81)
  (331)   (321)     (321)    (331)    (91)    (331)      (333)
  (421)   (411)     (411)    (421)    (433)   (421)      (432)
  (511)   (2211)    (2211)   (511)    (442)   (511)      (441)
  (3211)  (3111)    (3111)   (2221)   (532)   (2221)     (522)
          (21111)   (21111)  (3211)   (541)   (3211)     (531)
          (111111)           (4111)   (631)   (4111)     (621)
                             (22111)  (721)   (22111)    (711)
                                      (4321)  (31111)    (3222)
                                              (211111)   (3321)
                                              (1111111)  (4221)
                                                         (4311)
                                                         (5211)
                                                         (32211)

Cf. A063834, A066723, A213427, A265947, A299201, A300383, A317141, A321468, A321472.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Table[Length[Union[Sort/@Apply[Plus,mps[nrmptn[n]],{2}]]],{n,20}]

cp's OEIS Frontend

A387327 Number of ways to choose an integer partition of each prime factor of n (with multiplicity).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A301366 Regular triangle where T(n,k) is the number of same-trees of weight n with k leaves.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A322077 In the ranked poset of integer partitions ordered by refinement, number of integer partitions coarser (greater) than or equal to the integer partition whose multiplicities are the prime indices of n in weakly decreasing order.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica