A326841 -id:A326841 - cp's OEIS frontend

A340693 Number of integer partitions of n where each part is a divisor of the number of parts.

1, 1, 1, 2, 2, 3, 2, 5, 5, 7, 7, 10, 10, 14, 14, 17, 19, 24, 24, 32, 33, 42, 43, 58, 59, 75, 79, 98, 104, 124, 128, 156, 166, 196, 204, 239, 251, 292, 306, 352, 372, 426, 445, 514, 543, 616, 652, 745, 790, 896, 960, 1080, 1162, 1311, 1400, 1574, 1692, 1892

Offset: 0

Gus Wiseman, Jan 23 2021

nonn

The only strict partitions counted are (), (1), and (2,1).

Is there a simple generating function?

			The a(1) = 1 through a(9) = 7 partitions:
  1  11  21   22    311    2211    331      2222      333
         111  1111  2111   111111  2221     4211      4221
                    11111          4111     221111    51111
                                   211111   311111    222111
                                   1111111  11111111  321111
                                                      21111111
                                                      111111111

Note: Heinz numbers are given in parentheses below.
The reciprocal version is A143773 (A316428), with strict case A340830.
The case where length also divides n is A326842 (A326847).
The Heinz numbers of these partitions are A340606.
The version for factorizations is A340851, with reciprocal version A340853.
A018818 counts partitions of n into divisors of n (A326841).
A047993 counts balanced partitions (A106529).
A067538 counts partitions of n whose length/max divides n (A316413/A326836).
A067539 counts partitions with integer geometric mean (A326623).
A072233 counts partitions by sum and length.
A168659 = partitions whose greatest part divides their length (A340609).
A168659 = partitions whose length divides their greatest part (A340610).
A326843 = partitions of n whose length and maximum both divide n (A326837).
A330950 = partitions of n whose Heinz number is divisible by n (A324851).
Cf. A000041, A003114, A006141, A033630, A064174, A074761, A102627, A200750, A237984, A298423, A340827.

Table[Length[Select[IntegerPartitions[n],And@@IntegerQ/@(Length[#]/#)&]],{n,0,30}]

A327783 Heinz numbers of integer partitions whose LCM is a multiple of their sum.

Original entry on oeis.org

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 30, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 154, 157, 163, 165, 167, 173, 179, 181, 190, 191, 193, 197, 198, 199, 211, 223, 227, 229, 233, 239, 241

Offset: 1

Gus Wiseman, Sep 25 2019

nonn

First differs from A319333 in having 154.
First nonsquarefree term is 198.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			The sequence of terms together with their prime indices begins:
    2: {1}
    3: {2}
    5: {3}
    7: {4}
   11: {5}
   13: {6}
   17: {7}
   19: {8}
   23: {9}
   29: {10}
   30: {1,2,3}
   31: {11}
   37: {12}
   41: {13}
   43: {14}
   47: {15}
   53: {16}
   59: {17}
   61: {18}
   67: {19}

The enumeration of these partitions by sum is A327778.
Heinz numbers of partitions whose LCM is twice their sum are A327775.
Heinz numbers of partitions whose LCM is less than their sum are A327776.
Heinz numbers of partitions whose LCM is greater than their sum are A327784.
Cf. A056239, A074761, A112798, A290103, A316413, A326841, A327779.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[2,100],Divisible[LCM@@primeMS[#],Total[primeMS[#]]]&]

A056239(a(k)) | A290103(a(k)).

A327775 Heinz numbers of integer partitions whose LCM is twice their sum.

Original entry on oeis.org

154, 190, 435, 580, 714, 952, 1118, 1287, 1430, 1653, 1716, 1815, 1935, 2067, 2150, 2204, 2254, 2288, 2415, 2475, 2580, 2756, 2898, 2970, 3220, 3300, 3440, 3710, 3864, 3960, 3975, 4770, 5152, 5280, 5300, 6360, 6461, 6897, 7514, 8307, 8480, 8619, 8695, 8778

Offset: 1

Gus Wiseman, Sep 25 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			The sequence of terms together with their prime indices begins:
   154: {1,4,5}
   190: {1,3,8}
   435: {2,3,10}
   580: {1,1,3,10}
   714: {1,2,4,7}
   952: {1,1,1,4,7}
  1118: {1,6,14}
  1287: {2,2,5,6}
  1430: {1,3,5,6}
  1653: {2,8,10}
  1716: {1,1,2,5,6}
  1815: {2,3,5,5}
  1935: {2,2,3,14}
  2067: {2,6,16}
  2150: {1,3,3,14}
  2204: {1,1,8,10}
  2254: {1,4,4,9}
  2288: {1,1,1,1,5,6}
  2415: {2,3,4,9}
  2475: {2,2,3,3,5}

Alois P. Heinz, Table of n, a(n) for n = 1..1000

The enumeration of these partitions by sum is A327780.
Heinz numbers of partitions whose LCM is less than their sum are A327776.
Heinz numbers of partitions whose LCM is a multiple their sum are A327783.
Heinz numbers of partitions whose LCM is greater than their sum are A327784.
Cf. A056239, A074761, A112798, A290103, A326841 , A327778.

q:= n-> (l-> is(ilcm(l[])=2*add(j, j=l)))(map(i->
        numtheory[pi](i[1])$i[2], ifactors(n)[2])):
select(q, [$1..10000])[];  # Alois P. Heinz, Sep 27 2019

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[2,1000],LCM@@primeMS[#]==2*Total[primeMS[#]]&]

A290103(a(k)) = 2 * A056239(a(k)).

A340611 Number of integer partitions of n of length 2^k where k is the greatest part.

Original entry on oeis.org

1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 2, 2, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 6, 7, 8, 10, 12, 14, 16, 19, 21, 24, 27, 29, 32, 34, 36, 38, 41, 42, 45, 47, 50, 52, 56, 58, 63, 66, 71, 75, 83, 88, 98, 106, 118, 128, 143, 155, 173, 188, 208, 226, 250, 270, 297, 321, 350

Offset: 0

Gus Wiseman, Jan 28 2021

nonn

Also the number of integer partitions of n with maximum 2^k where k is the length.

			The partitions for n = 12, 14, 16, 22, 24:
  32211111  32222111  32222221  33333322          33333333
  33111111  33221111  33222211  33333331          4222221111111111
            33311111  33322111  4222111111111111  4322211111111111
                      33331111  4321111111111111  4332111111111111
                                4411111111111111  4422111111111111
                                                  4431111111111111
The conjugate partitions:
  (8,2,2)  (8,3,3)  (8,4,4)  (8,7,7)     (8,8,8)
  (8,3,1)  (8,4,2)  (8,5,3)  (8,8,6)     (16,3,3,2)
           (8,5,1)  (8,6,2)  (16,2,2,2)  (16,4,2,2)
                    (8,7,1)  (16,3,2,1)  (16,4,3,1)
                             (16,4,1,1)  (16,5,2,1)
                                         (16,6,1,1)

Note: A-numbers of Heinz-number sequences are in parentheses below.
A018818 counts partitions of n into divisors of n (A326841).
A047993 counts balanced partitions (A106529).
A067538 counts partitions of n whose length/max divides n (A316413/A326836).
A072233 counts partitions by sum and length.
A168659 = partitions whose greatest part divides their length (A340609).
A168659 = partitions whose length divides their greatest part (A340610).
A326843 = partitions of n whose length and maximum both divide n (A326837).
A340597 lists numbers with an alt-balanced factorization.
A340653 counts balanced factorizations.
A340689 have a factorization of length 2^max.
A340690 have a factorization of maximum 2^length.
Cf. A003114, A006141, A064174, A098124, A117409, A200750, A340385, A340387, A340599, A340601.

Table[Length[Select[IntegerPartitions[n],Length[#]==2^Max@@#&]],{n,0,30}]

A349150 Heinz numbers of integer partitions with at most one odd part.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 9, 11, 13, 14, 15, 17, 18, 19, 21, 23, 26, 27, 29, 31, 33, 35, 37, 38, 39, 41, 42, 43, 45, 47, 49, 51, 53, 54, 57, 58, 59, 61, 63, 65, 67, 69, 71, 73, 74, 77, 78, 79, 81, 83, 86, 87, 89, 91, 93, 95, 97, 98, 99, 101, 103, 105, 106, 107, 109

Offset: 1

Gus Wiseman, Nov 10 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers with at most one odd prime index.

Also Heinz numbers of partitions with conjugate alternating sum <= 1.

			The terms and their prime indices begin:
      1: {}          23: {9}         49: {4,4}
      2: {1}         26: {1,6}       51: {2,7}
      3: {2}         27: {2,2,2}     53: {16}
      5: {3}         29: {10}        54: {1,2,2,2}
      6: {1,2}       31: {11}        57: {2,8}
      7: {4}         33: {2,5}       58: {1,10}
      9: {2,2}       35: {3,4}       59: {17}
     11: {5}         37: {12}        61: {18}
     13: {6}         38: {1,8}       63: {2,2,4}
     14: {1,4}       39: {2,6}       65: {3,6}
     15: {2,3}       41: {13}        67: {19}
     17: {7}         42: {1,2,4}     69: {2,9}
     18: {1,2,2}     43: {14}        71: {20}
     19: {8}         45: {2,2,3}     73: {21}
     21: {2,4}       47: {15}        74: {1,12}

The case of no odd parts is A066207, counted by A000041 up to 0's.
Requiring all odd parts gives A066208, counted by A000009.
These partitions are counted by A100824, even-length case A349149.
These are the positions of 0's and 1's in A257991.
The conjugate partitions are ranked by A349151.
The case of one odd part is A349158, counted by A000070 up to 0's.
A056239 adds up prime indices, row sums of A112798.
A122111 is a representation of partition conjugation.
A300063 ranks partitions of odd numbers, counted by A058695 up to 0's.
A316524 gives the alternating sum of prime indices (reverse: A344616).
A325698 ranks partitions with as many even as odd parts, counted by A045931.
A340932 ranks partitions whose least part is odd, counted by A026804.
A345958 ranks partitions with alternating sum 1.
A349157 ranks partitions with as many even parts as odd conjugate parts.
Cf. A000290, A000700, A001222, A027187, A027193, A028260, A035363, A047993, A215366, A257992, A277579, A326841.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Count[Reverse[primeMS[#]],_?OddQ]<=1&]

Union of A066207 (no odd parts) and A349158 (one odd part).

A355748 Number of ways to choose a sequence of divisors, one of each part of the n-th composition in standard order.

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 2, 1, 3, 2, 4, 2, 2, 2, 2, 1, 2, 3, 4, 2, 4, 4, 4, 2, 3, 2, 4, 2, 2, 2, 2, 1, 4, 2, 6, 3, 4, 4, 4, 2, 6, 4, 8, 4, 4, 4, 4, 2, 2, 3, 4, 2, 4, 4, 4, 2, 3, 2, 4, 2, 2, 2, 2, 1, 2, 4, 4, 2, 6, 6, 6, 3, 6, 4, 8, 4, 4, 4, 4, 2, 4, 6, 8, 4, 8, 8, 8

Offset: 0

Gus Wiseman, Jul 23 2022

nonn

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			Composition number 152 in standard order is (3,1,4), and the a(152) = 6 choices are: (1,1,1), (1,1,2), (1,1,4), (3,1,1), (3,1,2), (3,1,4).

Positions of 1's are A000079 (after the first).
The anti-run case is A354578, zeros A354904, firsts A354905.
An unordered version (using prime indices) is A355731:
- firsts A355732,
- resorted A355733,
- weakly increasing A355735,
- relatively prime A355737,
- strict A355739.
A000005 counts divisors.
A003963 multiplies together the prime indices of n.
A005811 counts runs in binary expansion.
A029837 adds up standard compositions, lengths A000120.
A066099 lists the compositions in standard order.
A353851 counts compositions with all equal run-sums, ranked by A353848.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
Cf. A124767, A175413, A238279, A274174, A326841, A333381, A333755, A353847, A353849, A355747.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[Times@@Length/@Divisors/@stc[n],{n,0,100}]

A327776 Heinz numbers of integer partitions whose LCM is less than their sum.

Original entry on oeis.org

4, 6, 8, 9, 10, 12, 14, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 32, 34, 36, 38, 39, 40, 42, 44, 45, 46, 48, 49, 50, 52, 54, 56, 57, 58, 60, 62, 63, 64, 65, 68, 72, 74, 75, 76, 78, 80, 81, 82, 84, 86, 87, 88, 90, 92, 94, 96, 98, 100, 104, 106, 108, 111, 112

Offset: 1

Gus Wiseman, Sep 25 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			The sequence of terms together with their prime indices begins:
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
    9: {2,2}
   10: {1,3}
   12: {1,1,2}
   14: {1,4}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   24: {1,1,1,2}
   25: {3,3}
   26: {1,6}
   27: {2,2,2}
   28: {1,1,4}
   32: {1,1,1,1,1}
   34: {1,7}
   36: {1,1,2,2}

The enumeration of these partitions by sum is A327781.
Heinz numbers of partitions whose LCM is twice their sum are A327775.
Heinz numbers of partitions whose LCM is a multiple their sum are A327783.
Heinz numbers of partitions whose LCM is greater than their sum are A327784.
Cf. A056239, A074761, A112798, A290103, A316413, A326841, A327779.

q:= n-> (l-> is(ilcm(l[])
      numtheory[pi](i[1])$i[2], ifactors(n)[2])):
select(q, [$1..120])[];  # Alois P. Heinz, Sep 27 2019

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[2,100],LCM@@primeMS[#]

A327784 Heinz numbers of integer partitions whose LCM is greater than their sum.

Original entry on oeis.org

1, 15, 33, 35, 51, 55, 66, 69, 70, 77, 85, 91, 93, 95, 99, 102, 105, 110, 119, 123, 132, 138, 140, 141, 143, 145, 153, 154, 155, 161, 165, 170, 175, 177, 182, 186, 187, 190, 201, 203, 204, 205, 207, 209, 210, 215, 217, 219, 220, 221, 231, 238, 245, 246, 247, 249

Offset: 1

Gus Wiseman, Sep 25 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			The sequence of terms together with their prime indices begins:
    1: {}
   15: {2,3}
   33: {2,5}
   35: {3,4}
   51: {2,7}
   55: {3,5}
   66: {1,2,5}
   69: {2,9}
   70: {1,3,4}
   77: {4,5}
   85: {3,7}
   91: {4,6}
   93: {2,11}
   95: {3,8}
   99: {2,2,5}
  102: {1,2,7}
  105: {2,3,4}
  110: {1,3,5}
  119: {4,7}
  123: {2,13}
  132: {1,1,2,5}

The enumeration of these partitions by sum is A327779.
Heinz numbers of partitions whose LCM is twice their sum are A327775.
Heinz numbers of partitions whose LCM is less than their sum are A327776.
Heinz numbers of partitions whose LCM is a multiple their sum are A327783.
Cf. A056239, A074761, A112798, A290103, A316413, A326841, A327781.

q:= n-> (l-> is(ilcm(l[])>add(j, j=l)))(map(i->
    numtheory[pi](i[1])$i[2], ifactors(n)[2])):
select(q, [$1..250])[];  # Alois P. Heinz, Sep 27 2019

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[2,100],LCM@@primeMS[#]>Total[primeMS[#]]&]

A290103(a(k)) > A056239(a(k)).

A349151 Heinz numbers of integer partitions with alternating sum <= 1.

Original entry on oeis.org

1, 2, 4, 6, 8, 9, 15, 16, 18, 24, 25, 32, 35, 36, 49, 50, 54, 60, 64, 72, 77, 81, 96, 98, 100, 121, 128, 135, 140, 143, 144, 150, 162, 169, 196, 200, 216, 221, 225, 240, 242, 256, 288, 289, 294, 308, 315, 323, 324, 338, 361, 375, 384, 392, 400, 437, 441, 450

Offset: 1

Gus Wiseman, Nov 10 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

The alternating sum of a partition (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i. This is equal to the number of odd parts in the conjugate partition, so these are also Heinz numbers of partitions with at most one odd conjugate part.

			The terms and their prime indices begin:
    1: {}
    2: {1}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
    9: {2,2}
   15: {2,3}
   16: {1,1,1,1}
   18: {1,2,2}
   24: {1,1,1,2}
   25: {3,3}
   32: {1,1,1,1,1}
   35: {3,4}
   36: {1,1,2,2}
   49: {4,4}

The case of alternating sum 0 is A000290.
These partitions are counted by A100824.
These are the positions of 0's and 1's in A344616.
The case of alternating sum 1 is A345958.
The conjugate partitions are ranked by A349150.
A000041 counts integer partitions.
A056239 adds up prime indices, row sums of A112798.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A106529 ranks balanced partitions, counted by A047993.
A122111 is a representation of partition conjugation.
A257991 counts odd prime indices.
A316524 gives the alternating sum of prime indices.
A344610 counts partitions by sum and positive reverse-alternating sum.
A349157 ranks partitions with as many even parts as odd conjugate parts.
Cf. A000070, A000700, A001222, A027187, A027193, A215366, A277103, A277579, A326841, A349149, A349158.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Select[Range[100],ats[Reverse[primeMS[#]]]<=1&]

Equals A000290 \/ A345958 decapitated.

A340829 Number of strict integer partitions of n whose Heinz number (product of primes of parts) is divisible by n.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 2, 0, 0, 2, 3, 0, 4, 3, 4, 0, 8, 0, 10, 0, 11, 12, 19, 0, 0, 22, 0, 0, 46, 23, 56, 0, 64, 66, 86, 0, 125, 104, 135, 0, 196, 111, 230, 0, 0, 274, 353, 0, 0, 0, 563, 0, 687, 0, 974, 0, 1039, 1052, 1290, 0, 1473, 1511, 0, 0, 2707, 1614, 2664, 0

Offset: 1

Gus Wiseman, Feb 01 2021

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions. The Heinz numbers of these partitions are squarefree numbers divisible by the sum of their prime indices.

			The a(6) = 1 through a(19) = 10 partitions (empty columns indicated by dots, A = 10, B = 11):
  321  43   .  .  631   65    .  76    941   A32    .  A7     .  B8
       421        4321  542      643   6431  6432      764       865
                        5321     652   7421  9321      872       874
                                 6421        54321     971       982
                                                       7532      A81
                                                       7541      8542
                                                       7631      8632
                                                       74321     8641
                                                                 8731
                                                                 85321

Note: A-numbers of Heinz-number sequences are in parentheses below.
Positions of zeros are 2 and A013929.
The non-strict version is A330950 (A324851) q.v.
A000009 counts strict partitions.
A003963 multiplies together prime indices.
A018818 counts partitions into divisors (A326841).
A047993 counts balanced partitions (A106529).
A056239 adds up prime indices.
A057568 counts partitions whose product is divisible by their sum (A326149).
A067538 counts partitions whose length/max divides sum (A316413/A326836).
A072233 counts partitions by sum and length, with strict case A008289.
A102627 counts strict partitions whose length divides sum.
A112798 lists the prime indices of each positive integer.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
A324925 counts partitions whose Heinz number is divisible by their product.
A326842 counts partitions whose parts and length all divide sum (A326847).
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A330952 counts partitions whose Heinz number is divisible by all parts.
A340828 counts strict partitions with length divisible by maximum.
A340830 counts strict partitions with parts divisible by length.
Cf. A052335, A064173, A064174, A096401, A143773 (A316428), A168659 (A340609/A340610), A326843 (A326837).

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Divisible[Times@@Prime/@#,n]&]],{n,30}]

cp's OEIS Frontend

A340693 Number of integer partitions of n where each part is a divisor of the number of parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A327783 Heinz numbers of integer partitions whose LCM is a multiple of their sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A327775 Heinz numbers of integer partitions whose LCM is twice their sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A340611 Number of integer partitions of n of length 2^k where k is the greatest part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A349150 Heinz numbers of integer partitions with at most one odd part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A355748 Number of ways to choose a sequence of divisors, one of each part of the n-th composition in standard order.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A327776 Heinz numbers of integer partitions whose LCM is less than their sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

A327784 Heinz numbers of integer partitions whose LCM is greater than their sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica