A349158 -id:A349158 - cp's OEIS frontend

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

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).

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.

A379313 Positive integers whose prime indices are not all composite.

Original entry on oeis.org

2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 14, 15, 16, 17, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, 31, 32, 33, 34, 35, 36, 38, 39, 40, 41, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 62, 63, 64, 65, 66, 67, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 81, 82

Offset: 1

Gus Wiseman, Dec 28 2024

nonn

Or, positive integers whose prime indices include at least one 1 or prime number.

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.

			The terms together with their prime indices begin:
     2: {1}
     3: {2}
     4: {1,1}
     5: {3}
     6: {1,2}
     8: {1,1,1}
     9: {2,2}
    10: {1,3}
    11: {5}
    12: {1,1,2}
    14: {1,4}
    15: {2,3}
    16: {1,1,1,1}
    17: {7}
    18: {1,2,2}
    20: {1,1,3}
    21: {2,4}
    22: {1,5}
    24: {1,1,1,2}

Partitions of this type are counted by A000041 - A023895.
The "old" primes are listed by A008578.
For no composite parts we have A302540, counted by A034891 (strict A036497).
The complement is A320629, counted by A023895 (strict A204389).
For a unique prime we have A331915, counted by A379304 (strict A379305).
Positions of nonzeros in A379311.
For a unique 1 or prime we have A379312, counted by A379314 (strict A379315).
A000040 lists the prime numbers, differences A001223.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A080339 is the characteristic function for the old prime numbers.
A376682 gives k-th differences of old prime numbers, see A030016, A075526.
A377033 gives k-th differences of composite numbers, see A073445, A377034.
Other counts of prime indices:
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A257994 prime, see A000586, A000607, A076610, A331386.
- A330944 nonprime, see A002095, A096258, A320628, A330945.
- A379306 squarefree, see A302478, A379308, A379309, A379316.
- A379310 nonsquarefree, see A114374, A256012, A379307.
`Cf. A038550, A087436, A173390, A379300, A379301.

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

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A379313 Positive integers whose prime indices are not all composite.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica