A050361 -id:A050361 - cp's OEIS frontend

A383093 Number of integer partitions of n that can be partitioned into constant blocks with a common sum.

1, 1, 2, 2, 4, 2, 7, 2, 9, 5, 9, 2, 23, 2, 11, 10, 24, 2, 33, 2, 36, 12, 15, 2, 87, 7, 17, 17, 53, 2, 96, 2, 79, 16, 21, 14, 196, 2, 23, 18, 154, 2, 166, 2, 99, 54, 27, 2, 431, 9, 85, 22, 128, 2, 303, 18, 261, 24, 33, 2, 771, 2, 35, 73, 331, 20, 422, 2, 198, 28, 216, 2, 1369

Offset: 0

Gus Wiseman, Apr 22 2025

nonn

			The partition (4,4,2,2,2,2,1,1,1,1,1,1,1,1) has two partitions into constant blocks with a common sum: {{4,4},{2,2,2,2},{1,1,1,1,1,1,1,1}} and {{4},{4},{2,2},{2,2},{1,1,1,1},{1,1,1,1}}, so is counted under a(24).
The a(1) = 1 through a(8) = 9 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (11111)  (33)      (1111111)  (44)
                    (211)            (222)                (422)
                    (1111)           (2211)               (2222)
                                     (3111)               (22211)
                                     (21111)              (41111)
                                     (111111)             (221111)
                                                          (2111111)
                                                          (11111111)

Twice-partitions of this type (constant with common) are counted by A279789.
Multiset partitions of this type are ranked by A383309.
The complement is counted by A381993, ranks A381871.
For sets we have the complement of A381994, see A381719, A382080.
Normal multiset partitions of this type are counted by A382203, sets A381718.
For distinct instead of equal block-sums we have A382427.
These partitions are ranked by A383014, nonzeros of A381995.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383, A265947.
A050361 counts factorizations into distinct prime powers, see A381715.
A323774 counts partitions into constant blocks with a common sum
Constant blocks with distinct sums: A381635, A381636, A381717.
Permutation with equal run-sums: A383096, A383098, A383100, A383110
Cf. A006171, A047966, A279784, A295935, A323774, A326534, A353864, A355743, A381716, A382076, A382204.

mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn,{ptn,IntegerPartitions[Length[y]]}];
Table[Length[Select[IntegerPartitions[n],Length[Select[Join@@@Tuples[mce/@Split[#]],SameQ@@Total/@#&]]>0&]],{n,0,30}]

Multiset systems of this type have MM-numbers A383309 = A326534 /\ A355743.

Conjecture: We have Sum_{d|n} a(d) = A323774(n), so this is the Moebius transform of A323774.

More terms from Jakub Buczak, May 03 2025

A050362 Number of factorizations into distinct prime powers >1 indexed by prime signatures.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 2, 1, 3, 1, 2, 1, 4, 2, 3, 2, 5, 2, 1, 4, 1, 4, 2, 6, 3, 2, 5, 1, 4, 3, 8, 4, 2, 6, 2, 6, 1, 4, 10, 4, 5, 1, 4, 3, 8, 2, 8, 2, 5, 12, 4, 6, 1, 2, 6, 4, 10, 3, 10, 2, 6, 15, 6, 8, 1, 2, 8, 4, 5, 12, 1, 4, 4, 12, 3, 4, 8, 9, 18, 8, 10, 2, 3, 10, 4, 6, 15, 2, 6, 5, 16, 1, 4, 4, 10, 12

Offset: 1

Christian G. Bower, Oct 15 1999

nonn

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..300 from R. J. Mathar)

Cf. A025487, A050361.

A050362 := proc(n)
    A050361(A025487(n)) ;
end proc: # R. J. Mathar, May 26 2017

a(n) = A050361(A025487(n)).

More terms from Naohiro Nomoto, Nov 07 2001

A376679 Number of strict integer factorizations of n into nonsquarefree factors > 1.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 2, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 2, 0, 0, 0, 1, 0, 0, 0, 3, 0, 0, 1, 1, 0, 0, 0, 2, 1, 0, 0, 1, 0, 0, 0

Offset: 1

Gus Wiseman, Oct 08 2024

nonn

			The a(3456) = 28 factorizations are:
  (4*8*9*12)  (4*9*96)    (36*96)   (3456)
              (8*9*48)    (4*864)
              (4*12*72)   (48*72)
              (4*16*54)   (54*64)
              (4*18*48)   (8*432)
              (4*24*36)   (9*384)
              (4*27*32)   (12*288)
              (4*8*108)   (16*216)
              (8*12*36)   (18*192)
              (8*16*27)   (24*144)
              (8*18*24)   (27*128)
              (9*12*32)   (32*108)
              (9*16*24)
              (12*16*18)

Dominic McCarty, Table of n, a(n) for n = 1..10000

Positions of zeros are A005117 (squarefree numbers), complement A013929.
For squarefree instead of nonsquarefree we have A050326, non-strict A050320.
For prime-powers we have A050361, non-strict A000688.
For nonprime numbers we have A050372, non-strict A050370.
The version for partitions is A256012, non-strict A114374.
For perfect-powers we have A323090, non-strict A294068.
The non-strict version is A376657.
Nonsquarefree numbers:
- A078147 (first differences)
- A376593 (second differences)
- A376594 (inflections and undulations)
- A376595 (nonzero curvature)
A000040 lists the prime numbers, differences A001223.
A001055 counts integer factorizations, strict A045778.
A005117 lists squarefree numbers, differences A076259.
A317829 counts factorizations of superprimorials, strict A337069.
Cf. A008480, A053797, A053806, A061398, A089259, A120992, A303707, A322452, A375707, A376312.

function nextNonSquareFree(val){val+=1;for(let i=2;i*i<=val;i+=1){if(val%i==0&&val%(i*i)==0){return val}}return nextNonSquareFree(val)}function strictFactorCount(val,maxFactor){if(val==1){return 1}let sum=0;while(maxFactorDominic McCarty, Oct 19 2024

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],UnsameQ@@#&&NoneTrue[#,SquareFreeQ]&]],{n,100}] (* corrected by Gus Wiseman, Jun 27 2025 *)

A382301 Number of integer partitions of n having a unique multiset partition into constant blocks with distinct sums.

Original entry on oeis.org

1, 1, 2, 2, 3, 6, 8, 9, 14, 16, 25, 30, 41, 52, 69, 83, 105, 129, 164, 208, 263, 315, 388, 449, 573, 694

Offset: 0

Gus Wiseman, Mar 26 2025

			The a(4) = 3 through a(8) = 14 partitions and their unique multiset partition into constant blocks with distinct sums:
  {4}     {5}       {6}         {7}        {8}
  {22}    {1}{4}    {33}        {1}{6}     {44}
  {1}{3}  {2}{3}    {1}{5}      {2}{5}     {1}{7}
          {11}{3}   {2}{4}      {3}{4}     {2}{6}
          {1}{22}   {11}{4}     {11}{5}    {3}{5}
          {2}{111}  {11}{22}    {1}{33}    {11}{6}
                    {1}{2}{3}   {3}{22}    {2}{33}
                    {1}{11}{3}  {1}{2}{4}  {11}{33}
                                {3}{1111}  {11}{222}
                                           {1}{2}{5}
                                           {1}{3}{4}
                                           {1}{3}{22}
                                           {1}{4}{111}
                                           {1}{111}{22}

For distinct blocks instead of block-sums we have A000726, ranks A004709.
Twice-partitions of this type (constant with distinct) are counted by A279786.
MM-numbers of these multiset partitions are A326535 /\ A355743.
For no choices we have A381717, ranks A381636, zeros of A381635.
The Heinz numbers of these partitions are A381991, positions of 1 in A381635.
Normal multiset partitions of this type are counted by A382203.
For at least one choice we have A382427.
For strict instead of constant blocks we have A382460, ranks A381870.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383, A265947.
A050361 counts factorizations into distinct prime powers.
Cf. A006171, A047966, A279784, A293511, A295935, A353864, A381633, A381716, A381990, A381992, A381993, A382079.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
pfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[pfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],PrimePowerQ]}]];
Table[Length[Select[IntegerPartitions[n],Length[Select[pfacs[Times@@Prime/@#],UnsameQ@@hwt/@#&]]==1&]],{n,0,10}]

A382427 Number of integer partitions of n that can be partitioned into constant blocks with distinct sums.

Original entry on oeis.org

1, 1, 2, 3, 4, 7, 11, 14, 19, 28, 39, 50, 70, 91, 120, 161, 203, 260, 338, 426, 556, 695, 863, 1082, 1360, 1685

Offset: 0

Gus Wiseman, Mar 26 2025

Conjecture: Also the number of integer partitions of n having a permutation with all distinct run-sums.

			The partition (3,2,2,2,1) can be partitioned as {{1},{2},{3},{2,2}} or {{1},{3},{2,2,2}}, so is counted under a(10).
The a(1) = 1 through a(7) = 14 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (1111)  (221)    (51)      (61)
                            (311)    (222)     (322)
                            (2111)   (321)     (331)
                            (11111)  (411)     (421)
                                     (2211)    (511)
                                     (3111)    (2221)
                                     (21111)   (4111)
                                     (111111)  (22111)
                                               (31111)
                                               (211111)
                                               (1111111)

Twice-partitions of this type (constant with distinct) are counted by A279786.
Multiset partitions of this type are ranked by A326535 /\ A355743.
The complement is counted by A381717, ranks A381636, zeros of A381635.
For strict instead of constant blocks we have A381992, ranks A382075.
For a unique choice we have A382301, ranks A381991.
Normal multiset partitions of this type are counted by A382203, sets A381718.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383, A265947.
A050361 counts factorizations into distinct prime powers.
Cf. A006171, A047966, A279784, A295935, A300385, A353864, A381633, A381716, A381990, A381993, A382079, A382876.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
pfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[pfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],PrimePowerQ]}]];
Table[Length[Select[IntegerPartitions[n],Select[pfacs[Times@@Prime/@#],UnsameQ@@hwt/@#&]!={}&]],{n,0,10}]

A382524 Number of ways to choose a different constant partition of each part of a constant partition of n.

Original entry on oeis.org

1, 1, 2, 2, 5, 2, 6, 2, 10, 3, 6, 2, 24, 2, 6, 4, 17, 2, 36, 2, 18, 4, 6, 2, 86, 3, 6, 10, 18, 2, 44, 2, 50, 4, 6, 4, 159, 2, 6, 4, 62, 2, 44, 2, 18, 30, 6, 2, 486, 3, 12, 4, 18, 2, 140, 4, 62, 4, 6, 2, 932, 2, 6, 30, 157, 4, 44, 2, 18, 4, 20, 2, 1500, 2, 6

Offset: 0

Gus Wiseman, Apr 03 2025

nonn

These are strict twice-partitions of weight n and type PRR.

			The a(1) = 1 through a(8) = 10 twice-partitions:
  (1)  (2)   (3)    (4)      (5)      (6)       (7)        (8)
       (11)  (111)  (22)     (11111)  (33)      (1111111)  (44)
                    (1111)            (222)                (2222)
                    (11)(2)           (111111)             (22)(4)
                    (2)(11)           (111)(3)             (4)(22)
                                      (3)(111)             (1111)(4)
                                                           (4)(1111)
                                                           (11111111)
                                                           (1111)(22)
                                                           (22)(1111)

Gus Wiseman, Sequences enumerating triangles of integer partitions

For distinct instead of equal block-sums we have A279786.
This is the strict case of A279789.
The orderless version is A304442, see A353833, A381995, A381871.
Multiset partitions of this type are ranked by A326534 /\ A355743 /\ A005117.
Partitions with no partition of this type are counted by A382076, strict case of A381993.
Normal multiset partitions of this type are counted by the strict case of A382204.
A006171 counts multiset partitions into constant blocks of integer partitions of n.
A050361 counts factorizations into distinct prime powers, see A381715.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000005, A000040, A000688, A018818, A047966, A063834, A260685, A279784, A356065, A381453, A381455.

Table[If[n==0,1,Sum[Binomial[Length[Divisors[n/d]],d]*d!,{d,Divisors[n]}]],{n,0,100}]

a(n) = Sum_{d|n} binomial(A000005(n/d),d) * d!

A375359 The maximum exponent in the prime factorization of the smallest number whose square is divisible by n.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 2, 1

Offset: 1

Amiram Eldar, Aug 13 2024

Differs from A050361 at n = 1, 64, 128, 192, ... . Differs from A366902 at n = 1, 64, 192, 216, ... . Differs from A325837 at n = 1, 216, 432, 648, ... .

Cf. A019554, A051903, A372602, A375360.

Cf. A050361, A325837, A366902.

a[n_] := Module[{e = FactorInteger[n][[;; , 2]]}, Max[(If[EvenQ[#], #, # + 1]) & /@ e]/2]; a[1] = 0; Array[a, 100]

a(n) = if(n == 1, 0, vecmax(apply(x -> if(x % 2, x+1, x), factor(n)[,2]))/2);

a(n) = A051903(A019554(n)).

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 1 + Sum{k>=1} (1 - 1/zeta(2*k+1)) = 1.21464720975357037829... .

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

Original entry on oeis.org

1, 1, 2, 4, 12, 24, 92, 184, 704, 2016, 7600, 15200, 80664, 161328, 601696, 2198824, 9868544, 19737088, 102010480, 204020960

Offset: 0

Gus Wiseman, Mar 13 2025

A constant partition is a multiset whose parts are all equal. There are A000005(n) constant partitions of n.

			The a(1) = 1 through a(4) = 12 multisets:
  {1}  {1,2}    {1,2,3}        {1,2,3,4}
       {1,1,1}  {1,1,1,3}      {1,1,1,3,4}
                {1,1,1,1,2}    {1,2,2,2,3}
                {1,1,1,1,1,1}  {1,1,1,1,2,4}
                               {1,1,1,2,2,3}
                               {1,1,1,1,1,1,4}
                               {1,1,1,1,1,2,3}
                               {1,1,1,1,2,2,2}
                               {1,1,1,1,1,1,1,3}
                               {1,1,1,1,1,1,2,2}
                               {1,1,1,1,1,1,1,1,2}
                               {1,1,1,1,1,1,1,1,1,1}

The number of possible choices was A066843.
Multiset partitions into constant blocks: A006171, A279784, A295935.
Choosing prime factors: A355746, A355537, A327486, A355744, A355742, A355741.
Choosing divisors: A355747, A355733.
Sets of constant multisets with distinct sums: A381635, A381636, A381716.
Strict instead of constant partitions: A381808, A058694, A152827.
A000041 counts integer partitions, strict A000009, constant A000005.
A000688 counts multiset partitions into constant blocks.
A050361 and A381715 count multiset partitions into constant multisets.
A066723 counts partitions coarser than {1..n}, primorial case of A317141.
A265947 counts refinement-ordered pairs of integer partitions.
A321470 counts partitions finer than {1..n}, primorial case of A300383.
Cf. A001970, A018818, A213385, A299200, A321467, A321468, A321471, A321514, A355731, A381453, A381455.

Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],SameQ@@#&]&/@Range[n]]]],{n,0,10}]

Primorial case of A381453: a(n) = A381453(A002110(n)).

a(16)-a(19) from Christian Sievers, Jun 04 2025

A383309 Numbers whose prime indices are prime powers > 1 with a common sum of prime indices.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 17, 19, 23, 25, 27, 31, 35, 41, 49, 53, 59, 67, 81, 83, 97, 103, 109, 121, 125, 127, 131, 157, 175, 179, 191, 209, 211, 227, 241, 243, 245, 277, 283, 289, 311, 331, 343, 353, 361, 367, 391, 401, 419, 431, 461, 509, 529, 547, 563, 587, 599

Offset: 1

Gus Wiseman, Apr 25 2025

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. We define the multiset of multisets with MM-number n to be formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.

			The systems with these MM-numbers begin:
   1: {}
   3: {{1}}
   5: {{2}}
   7: {{1,1}}
   9: {{1},{1}}
  11: {{3}}
  17: {{4}}
  19: {{1,1,1}}
  23: {{2,2}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  31: {{5}}
  35: {{2},{1,1}}
  41: {{6}}
  49: {{1,1},{1,1}}
  53: {{1,1,1,1}}
  59: {{7}}
  67: {{8}}
  81: {{1},{1},{1},{1}}
  83: {{9}}
  97: {{3,3}}

Twice-partitions of this type are counted by A279789.
For just a common sum we have A326534.
For just constant blocks we have A355743.
Numbers without a factorization of this type are listed by A381871, counted by A381993.
The multiplicative version is A381995.
This is the odd case of A382215.
For strict instead of constant blocks we have A382304.
A001055 counts factorizations, strict A045778.
A023894 counts partitions into prime-powers.
A034699 gives maximal prime-power divisor.
A050361 counts factorizations into distinct prime powers.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A246655 lists the prime-powers (A000961 includes 1), towers A164336.
A317141 counts coarsenings of prime indices, refinements A300383.
A353864 counts rucksack partitions, ranked by A353866.
A355742 chooses a prime-power divisor of each prime index.
Cf. A000688, A000720, A001222, A006171, A038041, A279784, A302242, A302493, A321455, A326518, A381719.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],SameQ@@Total/@prix/@prix[#]&&And@@PrimePowerQ/@prix[#]&]

Equals A326534 /\ A355743.

A385416 The number of unordered factorizations of n into exponentially odd numbers (A268335).

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 1, 4, 1, 2, 2, 2, 1, 5, 1, 3, 2, 2, 2, 3, 1, 2, 2, 4, 1, 5, 1, 2, 2, 2, 1, 5, 1, 2, 2, 2, 1, 4, 2, 4, 2, 2, 1, 6, 1, 2, 2, 4, 2, 5, 1, 2, 2, 5, 1, 5, 1, 2, 2, 2, 2, 5, 1, 5, 2, 2, 1, 6, 2, 2, 2

Offset: 1

Amiram Eldar, Jun 28 2025

nonn

a(n) depends only on the prime signature of n (A118914).

The number of unordered factorizations of n into exponentially odd prime powers (A246551) is A050361(n).

			a(6) = 2 since 6 has 2 factorizations: 2 * 3 and 6.
a(24) = 4 since 24 has 4 factorizations: 2 * 2 * 2 * 3, 2 * 2 * 6, 3 * 8, and 24.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Unordered Factorization.

Cf. A001055, A005117, A050361, A118914, A246551, A268335, A385417 (indices of records).

T[n_, k_] := T[n, k] = If[n == 1 || k == 1, {{}}, Flatten[Table[Map[Prepend[#, d] &, T[d, k/d]], {d, Select[Divisors[k], 1 < # <= n &]}], 1]]; f[n_] := T[n, n];
expOdd[n_] := AllTrue[FactorInteger[n][[;; , 2]], OddQ]; a[n_] := Count[f[n], _?(And @@ (expOdd /@ #) &)]; Array[a, 100]

a(n) <= A001055(n), with equality if and only if n is squarefree (A005117).

cp's OEIS Frontend

A383093 Number of integer partitions of n that can be partitioned into constant blocks with a common sum.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A050362 Number of factorizations into distinct prime powers >1 indexed by prime signatures.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Formula

Extensions

A376679 Number of strict integer factorizations of n into nonsquarefree factors > 1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

JavaScript

Mathematica

A382301 Number of integer partitions of n having a unique multiset partition into constant blocks with distinct sums.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A382427 Number of integer partitions of n that can be partitioned into constant blocks with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382524 Number of ways to choose a different constant partition of each part of a constant partition of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A375359 The maximum exponent in the prime factorization of the smallest number whose square is divisible by n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula