A340596 -id:A340596 - cp's OEIS frontend

A340854 Numbers that cannot be factored into factors > 1, the least of which is odd.

1, 2, 4, 6, 8, 10, 14, 16, 20, 22, 26, 28, 32, 34, 38, 44, 46, 52, 58, 62, 64, 68, 74, 76, 82, 86, 88, 92, 94, 104, 106, 116, 118, 122, 124, 128, 134, 136, 142, 146, 148, 152, 158, 164, 166, 172, 178, 184, 188, 194, 202, 206, 212, 214, 218, 226, 232, 236, 244

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

Consists of 1 and all numbers that are even and have no odd divisor 1 < d <= n/d.

			The sequence of terms together with their prime indices begins:
      1: {}              44: {1,1,5}          106: {1,16}
      2: {1}             46: {1,9}            116: {1,1,10}
      4: {1,1}           52: {1,1,6}          118: {1,17}
      6: {1,2}           58: {1,10}           122: {1,18}
      8: {1,1,1}         62: {1,11}           124: {1,1,11}
     10: {1,3}           64: {1,1,1,1,1,1}    128: {1,1,1,1,1,1,1}
     14: {1,4}           68: {1,1,7}          134: {1,19}
     16: {1,1,1,1}       74: {1,12}           136: {1,1,1,7}
     20: {1,1,3}         76: {1,1,8}          142: {1,20}
     22: {1,5}           82: {1,13}           146: {1,21}
     26: {1,6}           86: {1,14}           148: {1,1,12}
     28: {1,1,4}         88: {1,1,1,5}        152: {1,1,1,8}
     32: {1,1,1,1,1}     92: {1,1,9}          158: {1,22}
     34: {1,7}           94: {1,15}           164: {1,1,13}
     38: {1,8}          104: {1,1,1,6}        166: {1,23}
For example, the factorizations of 88 are (2*2*2*11), (2*2*22), (2*4*11), (2*44), (4*22), (8*11), (88), none of which has odd minimum, so 88 is in the sequence.

The version looking at greatest factor is A000079.
The version for twice-balanced is A340656, with complement A340657.
These factorization are counted by A340832.
The complement is A340855.
A033676 selects the maximum inferior divisor.
A038548 counts inferior divisors.
A055396 selects the least prime index.
- Factorizations -
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
A339890 counts factorizations of odd length.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts.
A024429 counts set partitions of odd length.
A026424 lists numbers with odd Omega.
A066208 lists Heinz numbers of partitions into odd parts.
A067659 counts strict partitions of odd length (A030059).
A174726 counts ordered factorizations of odd length.
Cf. A026804, A027193, A050320, A244991, A340101, A340102, A340596, A340597, A340607, A340654, A340655, A340852.

Select[Range[100],Function[n,n==1||EvenQ[n]&&Select[Rest[Divisors[n]],OddQ[#]&&#<=n/#&]=={}]]

A340855 Numbers that can be factored into factors > 1, the least of which is odd.

Original entry on oeis.org

3, 5, 7, 9, 11, 12, 13, 15, 17, 18, 19, 21, 23, 24, 25, 27, 29, 30, 31, 33, 35, 36, 37, 39, 40, 41, 42, 43, 45, 47, 48, 49, 50, 51, 53, 54, 55, 56, 57, 59, 60, 61, 63, 65, 66, 67, 69, 70, 71, 72, 73, 75, 77, 78, 79, 80, 81, 83, 84, 85, 87, 89, 90, 91, 93, 95

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

These are numbers that are odd or have an odd divisor 1 < d <= n/d.

			The sequence of terms together with their prime indices begins:
     3: {2}          27: {2,2,2}      48: {1,1,1,1,2}
     5: {3}          29: {10}         49: {4,4}
     7: {4}          30: {1,2,3}      50: {1,3,3}
     9: {2,2}        31: {11}         51: {2,7}
    11: {5}          33: {2,5}        53: {16}
    12: {1,1,2}      35: {3,4}        54: {1,2,2,2}
    13: {6}          36: {1,1,2,2}    55: {3,5}
    15: {2,3}        37: {12}         56: {1,1,1,4}
    17: {7}          39: {2,6}        57: {2,8}
    18: {1,2,2}      40: {1,1,1,3}    59: {17}
    19: {8}          41: {13}         60: {1,1,2,3}
    21: {2,4}        42: {1,2,4}      61: {18}
    23: {9}          43: {14}         63: {2,2,4}
    24: {1,1,1,2}    45: {2,2,3}      65: {3,6}
    25: {3,3}        47: {15}         66: {1,2,5}
For example, 72 is in the sequence because it has three suitable factorizations: (3*3*8), (3*4*6), (3*24).

The version looking at greatest factor is A057716.
The version for twice-balanced is A340657, with complement A340656.
These factorization are counted by A340832.
The complement is A340854.
A033676 selects the maximum inferior divisor.
A038548 counts inferior divisors, listed by A161906.
A055396 selects the least prime index.
- Factorizations -
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
A339890 counts factorizations of odd length.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts.
A024429 counts set partitions of odd length.
A026424 lists numbers with odd Omega.
A066208 lists Heinz numbers of partitions into odd parts.
A067659 counts strict partitions of odd length (A030059).
A174726 counts ordered factorizations of odd length.
A332304 counts strict compositions of odd length.
A340692 counts partitions of odd rank.
Cf. A026804, A027193, A050320, A244991, A340101, A340102, A340596, A340597, A340607, A340654, A340655, A340852.

Select[Range[100],Function[n,n>1&&(OddQ[n]||Select[Rest[Divisors[n]],OddQ[#]&&#<=n/#&]!={})]]

A340597 Numbers with an alt-balanced factorization.

Original entry on oeis.org

4, 12, 18, 27, 32, 48, 64, 72, 80, 96, 108, 120, 128, 144, 160, 180, 192, 200, 240, 256, 270, 288, 300, 320, 360, 384, 400, 405, 432, 448, 450, 480, 500, 540, 576, 600, 640, 648, 672, 675, 720, 750, 768, 800, 864, 896, 900, 960, 972, 1000, 1008, 1024, 1080

Offset: 1

Gus Wiseman, Jan 15 2021

nonn

We define a factorization into factors > 1 to be alt-balanced if its length is equal to its greatest factor.

			The sequence of terms together with their prime signatures begins:
      4: (2)        180: (2,2,1)    450: (1,2,2)
     12: (2,1)      192: (6,1)      480: (5,1,1)
     18: (1,2)      200: (3,2)      500: (2,3)
     27: (3)        240: (4,1,1)    540: (2,3,1)
     32: (5)        256: (8)        576: (6,2)
     48: (4,1)      270: (1,3,1)    600: (3,1,2)
     64: (6)        288: (5,2)      640: (7,1)
     72: (3,2)      300: (2,1,2)    648: (3,4)
     80: (4,1)      320: (6,1)      672: (5,1,1)
     96: (5,1)      360: (3,2,1)    675: (3,2)
    108: (2,3)      384: (7,1)      720: (4,2,1)
    120: (3,1,1)    400: (4,2)      750: (1,1,3)
    128: (7)        405: (4,1)      768: (8,1)
    144: (4,2)      432: (4,3)      800: (5,2)
    160: (5,1)      448: (6,1)      864: (5,3)
For example, there are two alt-balanced factorizations of 480, namely (2*3*4*4*5) and (2*2*2*2*5*6), so 480 in the sequence.

Numbers with a balanced factorization are A100959.
These factorizations are counted by A340599.
The twice-balanced version is A340657.
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
Other balance-related sequences:
- A010054 counts balanced strict partitions.
- A047993 counts balanced partitions.
- A098124 counts balanced compositions.
- A106529 lists Heinz numbers of balanced partitions.
- A340596 counts co-balanced factorizations.
- A340598 counts balanced set partitions.
- A340600 counts unlabeled balanced multiset partitions.
- A340653 counts balanced factorizations.
- A340654 counts cross-balanced factorizations.
- A340655 counts twice-balanced factorizations.
Cf. A006141, A064174, A117409, A200750, A303975, A324518, A324522, A325134, A340607, A340608, A340611, A340656.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[100],Select[facs[#],Length[#]==Max[#]&]!={}&]

A340656 Numbers without a twice-balanced factorization.

Original entry on oeis.org

4, 6, 8, 9, 10, 14, 15, 16, 21, 22, 25, 26, 27, 30, 32, 33, 34, 35, 38, 39, 42, 46, 48, 49, 51, 55, 57, 58, 60, 62, 64, 65, 66, 69, 70, 72, 74, 77, 78, 80, 81, 82, 84, 85, 86, 87, 90, 91, 93, 94, 95, 96, 102, 105, 106, 108, 110, 111, 112, 114, 115, 118, 119

Offset: 1

Gus Wiseman, Jan 16 2021

nonn

We define a factorization of n into factors > 1 to be twice-balanced if it is empty or the following are equal:
(1) the number of factors;
(2) the maximum image of A001222 over the factors;
(3) A001221(n).

			The sequence of terms together with their prime indices begins:
     4: {1,1}          33: {2,5}          64: {1,1,1,1,1,1}
     6: {1,2}          34: {1,7}          65: {3,6}
     8: {1,1,1}        35: {3,4}          66: {1,2,5}
     9: {2,2}          38: {1,8}          69: {2,9}
    10: {1,3}          39: {2,6}          70: {1,3,4}
    14: {1,4}          42: {1,2,4}        72: {1,1,1,2,2}
    15: {2,3}          46: {1,9}          74: {1,12}
    16: {1,1,1,1}      48: {1,1,1,1,2}    77: {4,5}
    21: {2,4}          49: {4,4}          78: {1,2,6}
    22: {1,5}          51: {2,7}          80: {1,1,1,1,3}
    25: {3,3}          55: {3,5}          81: {2,2,2,2}
    26: {1,6}          57: {2,8}          82: {1,13}
    27: {2,2,2}        58: {1,10}         84: {1,1,2,4}
    30: {1,2,3}        60: {1,1,2,3}      85: {3,7}
    32: {1,1,1,1,1}    62: {1,11}         86: {1,14}
For example, the factorizations of 48 with (2) and (3) equal are: (2*2*2*6), (2*2*3*4), (2*4*6), (3*4*4), but since none of these has length 2, the sequence contains 48.

Positions of zeros in A340655.
The complement is A340657.
A001055 counts factorizations.
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A045778 counts strict factorizations.
A303975 counts distinct prime factors in prime indices.
A316439 counts factorizations by product and length.
Other balance-related sequences:
- A010054 counts balanced strict partitions.
- A047993 counts balanced partitions.
- A098124 counts balanced compositions.
- A106529 lists Heinz numbers of balanced partitions.
- A340596 counts co-balanced factorizations.
- A340597 lists numbers with an alt-balanced factorization.
- A340598 counts balanced set partitions.
- A340599 counts alt-balanced factorizations.
- A340600 counts unlabeled balanced multiset partitions.
- A340652 counts unlabeled twice-balanced multiset partitions.
- A340653 counts balanced factorizations.
- A340654 counts cross-balanced factorizations.
Cf. A112798, A117409, A325134, A339846, A339890, A340607, A340689, A340690.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[100],Select[facs[#],#=={}||Length[#]==PrimeNu[Times@@#]==Max[PrimeOmega/@#]&]=={}&]

A340657 Numbers with a twice-balanced factorization.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 12, 13, 17, 18, 19, 20, 23, 24, 28, 29, 31, 36, 37, 40, 41, 43, 44, 45, 47, 50, 52, 53, 54, 56, 59, 61, 63, 67, 68, 71, 73, 75, 76, 79, 83, 88, 89, 92, 97, 98, 99, 100, 101, 103, 104, 107, 109, 113, 116, 117, 120, 124, 127, 131, 135, 136, 137

Offset: 1

Gus Wiseman, Jan 17 2021

nonn

We define a factorization of n into factors > 1 to be twice-balanced if it is empty or the following are equal:
(1) the number of factors;
(2) the maximum image of A001222 over the factors;
(3) A001221(n).

			The sequence of terms together with their prime indices begins:
      1: {}            29: {10}          59: {17}
      2: {1}           31: {11}          61: {18}
      3: {2}           36: {1,1,2,2}     63: {2,2,4}
      5: {3}           37: {12}          67: {19}
      7: {4}           40: {1,1,1,3}     68: {1,1,7}
     11: {5}           41: {13}          71: {20}
     12: {1,1,2}       43: {14}          73: {21}
     13: {6}           44: {1,1,5}       75: {2,3,3}
     17: {7}           45: {2,2,3}       76: {1,1,8}
     18: {1,2,2}       47: {15}          79: {22}
     19: {8}           50: {1,3,3}       83: {23}
     20: {1,1,3}       52: {1,1,6}       88: {1,1,1,5}
     23: {9}           53: {16}          89: {24}
     24: {1,1,1,2}     54: {1,2,2,2}     92: {1,1,9}
     28: {1,1,4}       56: {1,1,1,4}     97: {25}
The twice-balanced factorizations of 1920 (with prime indices {1,1,1,1,1,1,1,2,3}) are (8*8*30) and (8*12*20), so 1920 is in the sequence.

The alt-balanced version is A340597.
Positions of nonzero terms in A340655.
The complement is A340656.
A001055 counts factorizations.
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A045778 counts strict factorizations.
A303975 counts distinct prime factors in prime indices.
A316439 counts factorizations by product and length.
Other balance-related sequences:
- A010054 counts balanced strict partitions.
- A047993 counts balanced partitions.
- A098124 counts balanced compositions.
- A106529 lists Heinz numbers of balanced partitions.
- A340596 counts co-balanced factorizations.
- A340598 counts balanced set partitions.
- A340599 counts alt-balanced factorizations.
- A340600 counts unlabeled balanced multiset partitions.
- A340652 counts unlabeled twice-balanced multiset partitions.
- A340653 counts balanced factorizations.
- A340654 counts cross-balanced factorizations.
Cf. A005117, A056239, A112798, A117409, A320325, A325134, A339846, A339890, A340607, A340689, A340690.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[100],Select[facs[#],#=={}||Length[#]==PrimeNu[Times@@#]==Max[PrimeOmega/@#]&]!={}&]

A340832 Number of factorizations of n into factors > 1 with odd least factor.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

			The a(n) factorizations for n = 45, 108, 135, 180, 252:
  (45)     (3*36)     (135)      (3*60)     (3*84)
  (5*9)    (9*12)     (3*45)     (5*36)     (7*36)
  (3*15)   (3*4*9)    (5*27)     (9*20)     (9*28)
  (3*3*5)  (3*6*6)    (9*15)     (5*6*6)    (3*3*28)
           (3*3*12)   (3*5*9)    (3*3*20)   (3*4*21)
           (3*3*3*4)  (3*3*15)   (3*4*15)   (3*6*14)
                      (3*3*3*5)  (3*5*12)   (3*7*12)
                                 (3*6*10)   (3*3*4*7)
                                 (3*3*4*5)

Antti Karttunen, Table of n, a(n) for n = 1..20000

Positions of 0's are A340854.
Positions of nonzero terms are A340855.
The version for partitions is A026804.
Odd-length factorizations are counted by A339890.
The version looking at greatest factor is A340831.
- Factorizations -
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
A340101 counts factorizations into odd factors, odd-length case A340102.
A340607 counts factorizations with odd length and greatest factor.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts.
A026424 lists numbers with odd Omega.
A027193 counts partitions of odd length.
A058695 counts partitions of odd numbers (A300063).
A066208 lists numbers with odd-indexed prime factors.
A067659 counts strict partitions of odd length (A030059).
A174726 counts ordered factorizations of odd length.
A244991 lists numbers whose greatest prime index is odd.
A340692 counts partitions of odd rank.
Cf. A050320, A160786, A340385, A340596, A340599, A340654, A340655, A340931.

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],OddQ@*Min]],{n,100}]

A340832(n, m=n, fc=1) = if(1==n, (m%2)&&!fc, my(s=0); fordiv(n, d, if((d>1)&&(d<=m), s += A340832(n/d, d, 0*fc))); (s)); \\ Antti Karttunen, Dec 13 2021

Data section extended up to 108 terms by Antti Karttunen, Dec 13 2021

A342086 Number of strict factorizations of divisors of n.

Original entry on oeis.org

1, 2, 2, 3, 2, 5, 2, 5, 3, 5, 2, 9, 2, 5, 5, 7, 2, 9, 2, 9, 5, 5, 2, 16, 3, 5, 5, 9, 2, 15, 2, 10, 5, 5, 5, 18, 2, 5, 5, 16, 2, 15, 2, 9, 9, 5, 2, 25, 3, 9, 5, 9, 2, 16, 5, 16, 5, 5, 2, 31, 2, 5, 9, 14, 5, 15, 2, 9, 5, 15, 2, 34, 2, 5, 9, 9, 5, 15, 2, 25, 7, 5

Offset: 1

Gus Wiseman, Mar 05 2021

nonn

A strict factorization of n is a set of distinct positive integers > 1 with product n.

			The a(1) = 1 through a(12) = 9 factorizations:
  ()  ()   ()   ()   ()   ()     ()   ()     ()   ()     ()    ()
      (2)  (3)  (2)  (5)  (2)    (7)  (2)    (3)  (2)    (11)  (2)
                (4)       (3)         (4)    (9)  (5)          (3)
                          (6)         (8)         (10)         (4)
                          (2*3)       (2*4)       (2*5)        (6)
                                                               (12)
                                                               (2*3)
                                                               (2*6)
                                                               (3*4)

Robert Israel, Table of n, a(n) for n = 1..10000

A version for partitions is A026906 (strict partitions of 1..n).
A version for partitions is A036469 (strict partitions of 0..n).
A version for partitions is A047966 (strict partitions of divisors).
The non-strict version is A057567.
A000005 counts divisors, with sum A000203.
A000009 counts strict partitions.
A001055 counts factorizations, with strict case A045778.
A001221 counts prime divisors, with sum A001414.
A001222 counts prime-power divisors.
A005117 lists squarefree numbers.
Cf. A001227, A050320, A340101, A340596, A340654, A340655, A340853, A341596, A341673, A341674, A342097.

sf1:= proc(n,m)
  local D,d;
  if n = 1 then return 1 fi;
  D:= select(`<`,numtheory:-divisors(n) minus {1},m);
  add( procname(n/d,d), d= D)
end proc:
sf:= proc(n) option remember; sf1(n,n+1) end proc:f:= proc(n) local d; add(sf(d),d=numtheory:-divisors(n)) end proc:map(f, [$1..100]); # Robert Israel, Mar 10 2021

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Sum[Length[Select[facs[k],UnsameQ@@#&]],{k,Divisors[n]}],{n,30}]

A340852 Numbers that can be factored in such a way that every factor is a divisor of the number of factors.

Original entry on oeis.org

1, 4, 16, 27, 32, 64, 96, 128, 144, 192, 216, 256, 288, 324, 432, 486, 512, 576, 648, 729, 864, 972, 1024, 1296, 1458, 1728, 1944, 2048, 2560, 2592, 2916, 3125, 3888, 4096, 5120, 5184, 5832, 6144, 6400, 7776, 8192, 9216, 11664, 12288, 12800, 13824, 15552

Offset: 1

Gus Wiseman, Feb 04 2021

nonn

Also numbers that can be factored in such a way that the length is divisible by the least common multiple.

			The sequence of terms together with their prime indices begins:
    1: {}
    4: {1,1}
   16: {1,1,1,1}
   27: {2,2,2}
   32: {1,1,1,1,1}
   64: {1,1,1,1,1,1}
   96: {1,1,1,1,1,2}
  128: {1,1,1,1,1,1,1}
  144: {1,1,1,1,2,2}
  192: {1,1,1,1,1,1,2}
  216: {1,1,1,2,2,2}
  256: {1,1,1,1,1,1,1,1}
  288: {1,1,1,1,1,2,2}
  324: {1,1,2,2,2,2}
  432: {1,1,1,1,2,2,2}
For example, 24576 has three suitable factorizations:
  (2*2*2*2*2*2*2*2*2*2*2*12)
  (2*2*2*2*2*2*2*2*2*2*4*6)
  (2*2*2*2*2*2*2*2*2*3*4*4)
so is in the sequence.

Partitions of this type are counted by A340693 (A340606).
These factorizations are counted by A340851.
The reciprocal version is A340853.
A143773 counts partitions whose parts are multiples of the number of parts.
A320911 can be factored into squarefree semiprimes.
A340597 have an alt-balanced factorization.
A340656 lack a twice-balanced factorization, complement A340657.
- Factorizations -
A001055 counts factorizations, with strict case A045778.
A316439 counts factorizations by product and length.
A339846 counts factorizations of even length.
A339890 counts factorizations of odd length.
A340101 counts factorizations into odd factors, odd-length case A340102.
A340653 counts balanced factorizations.
A340831/A340832 count factorizations with odd maximum/minimum.
A340785 counts factorizations into even numbers, even-length case A340786.
A340854 cannot be factored with odd least factor, complement A340855.
Cf. A050320, A067538, A168659, A301987, A316413, A327517, A340596, A340599, A340609, A340654, A340655, A340827, A340830.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[1000],Select[facs[#],And@@IntegerQ/@(Length[#]/#)&]!={}&]

A340598 Number of balanced set partitions of {1..n}.

Original entry on oeis.org

0, 1, 0, 3, 3, 10, 60, 210, 700, 3556, 19845, 105567, 550935, 3120832, 19432413, 127949250, 858963105, 5882733142, 41636699676, 307105857344, 2357523511200, 18694832699907, 152228641035471, 1270386473853510, 10872532998387918, 95531590347525151

Offset: 0

Gus Wiseman, Jan 20 2021

nonn

A set partition is balanced if it has exactly as many blocks as the greatest size of a block.

			The a(1) = 1 through a(5) = 10 balanced set partitions (empty column indicated by dot):
  {{1}}  .  {{1},{2,3}}  {{1,2},{3,4}}  {{1},{2},{3,4,5}}
            {{1,2},{3}}  {{1,3},{2,4}}  {{1},{2,3,4},{5}}
            {{1,3},{2}}  {{1,4},{2,3}}  {{1,2,3},{4},{5}}
                                        {{1},{2,3,5},{4}}
                                        {{1,2,4},{3},{5}}
                                        {{1},{2,4,5},{3}}
                                        {{1,2,5},{3},{4}}
                                        {{1,3,4},{2},{5}}
                                        {{1,3,5},{2},{4}}
                                        {{1,4,5},{2},{3}}

Andrew Howroyd, Table of n, a(n) for n = 0..200

The unlabeled version is A047993 (A106529).
A000110 counts set partitions.
A000670 counts ordered set partitions.
A113547 counts set partitions by maximin.
Other balance-related sequences:
- A010054 counts balanced strict integer partitions (A002110).
- A098124 counts balanced integer compositions.
- A340596 counts co-balanced factorizations.
- A340599 counts alt-balanced factorizations.
- A340600 counts unlabeled balanced multiset partitions.
- A340653 counts balanced factorizations.
Cf. A000258, A001055, A006141, A008275, A008277, A008278, A095149.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[sps[Range[n]],Length[#]==Max@@Length/@#&]],{n,0,8}]

\\ D(n,k) counts balanced set partitions with k blocks.
D(n,k)={my(t=sum(i=1, k, x^i/i!) + O(x*x^n)); n!*polcoef(t^k - (t-x^k/k!)^k, n)/k!}
a(n)={sum(k=sqrtint(n), (n+1)\2, D(n,k))} \\ Andrew Howroyd, Mar 14 2021

Terms a(12) and beyond from Andrew Howroyd, Mar 14 2021

A340600 Number of non-isomorphic balanced multiset partitions of weight n.

Original entry on oeis.org

1, 1, 0, 4, 7, 16, 52, 206, 444, 1624, 5462, 19188, 62890, 215367, 765694, 2854202, 10634247, 39842786, 150669765, 581189458, 2287298588, 9157598354, 37109364812, 151970862472, 629048449881, 2635589433705, 11184718653563, 48064965080106, 208988724514022, 918639253237646, 4079974951494828

Offset: 0

Gus Wiseman, Feb 05 2021

nonn

We define a multiset partition to be balanced if it has exactly as many parts as the greatest size of a part.

			Non-isomorphic representatives of the a(1) = 1 through a(5) = 16 multiset partitions (empty column indicated by dot):
  {{1}}  .  {{1},{1,1}}  {{1,1},{1,1}}  {{1},{1},{1,1,1}}
            {{1},{2,2}}  {{1,1},{2,2}}  {{1},{1},{1,2,2}}
            {{1},{2,3}}  {{1,2},{1,2}}  {{1},{1},{2,2,2}}
            {{2},{1,2}}  {{1,2},{2,2}}  {{1},{1},{2,3,3}}
                         {{1,2},{3,3}}  {{1},{1},{2,3,4}}
                         {{1,2},{3,4}}  {{1},{2},{1,2,2}}
                         {{1,3},{2,3}}  {{1},{2},{2,2,2}}
                                        {{1},{2},{2,3,3}}
                                        {{1},{2},{3,3,3}}
                                        {{1},{2},{3,4,4}}
                                        {{1},{2},{3,4,5}}
                                        {{1},{3},{2,3,3}}
                                        {{1},{4},{2,3,4}}
                                        {{2},{2},{1,2,2}}
                                        {{2},{3},{1,2,3}}
                                        {{3},{3},{1,2,3}}

The version for partitions is A047993.
The co-balanced version is A319616.
The cross-balanced version is A340651.
The twice-balanced version is A340652.
The version for factorizations is A340653.
A007716 counts non-isomorphic multiset partitions.
A007718 counts non-isomorphic connected multiset partitions.
A316980 counts non-isomorphic strict multiset partitions.
Other balance-related sequences:
- A098124 counts balanced compositions.
- A106529 lists balanced numbers.
- A340596 counts co-balanced factorizations.
- A340597 lists numbers with an alt-balanced factorization.
- A340598 counts balanced set partitions.
- A340599 counts alt-balanced factorizations.
Cf. A001055, A006141, A007717, A316983, A320663, A324522, A340654, A340655.

\\ See A340652 for G.
seq(n)={Vec(1 + sum(k=1,n,polcoef(G(n,n,k,y),k,y) - polcoef(G(n,n,k-1,y),k,y)))} \\ Andrew Howroyd, Jan 15 2024

a(11) onwards from Andrew Howroyd, Jan 15 2024

cp's OEIS Frontend

A340854 Numbers that cannot be factored into factors > 1, the least of which is odd.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340855 Numbers that can be factored into factors > 1, the least of which is odd.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340597 Numbers with an alt-balanced factorization.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340656 Numbers without a twice-balanced factorization.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340657 Numbers with a twice-balanced factorization.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340832 Number of factorizations of n into factors > 1 with odd least factor.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A342086 Number of strict factorizations of divisors of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A340852 Numbers that can be factored in such a way that every factor is a divisor of the number of factors.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340598 Number of balanced set partitions of {1..n}.

Views

Author