cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-30 of 84 results. Next

A350949 Heinz numbers of integer partitions with as many even parts as even conjugate parts and as many odd parts as odd conjugate parts.

Original entry on oeis.org

1, 2, 6, 9, 20, 30, 56, 75, 84, 125, 176, 210, 264, 294, 315, 350, 416, 441, 490, 525, 624, 660, 735, 924, 990, 1088, 1100, 1386, 1540, 1560, 1632, 1650, 1715, 2184, 2310, 2340, 2401, 2432, 2600, 3267, 3276, 3388, 3640, 3648, 3900, 4080, 4125, 5082, 5324, 5390
Offset: 1

Views

Author

Gus Wiseman, Mar 14 2022

Keywords

Comments

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.

Examples

			The terms together with their prime indices begin:
     1: ()
     2: (1)
     6: (2,1)
     9: (2,2)
    20: (3,1,1)
    30: (3,2,1)
    56: (4,1,1,1)
    75: (3,3,2)
    84: (4,2,1,1)
   125: (3,3,3)
   176: (5,1,1,1,1)
   210: (4,3,2,1)
   264: (5,2,1,1,1)
   294: (4,4,2,1)
   315: (4,3,2,2)
   350: (4,3,3,1)
   416: (6,1,1,1,1,1)

Crossrefs

The second condition alone is A350944, counted by A277103.
The first condition alone is A350945, counted by A350948.
The case of all four statistics equal is A350947, counted by A351978.
These partitions are counted by A351976.
There are four other possible pairings of statistics:
- A045931: # even = # odd, ranked by A325698, strict A239241.
- A045931: # even conj = # odd conj, ranked by A350848, strict A352129.
- A277579: # even = # odd conj, ranked by A349157, strict A352131.
- A277579: # even conj = # odd, ranked by A350943, strict A352130.
There are two other possible double-pairings of statistics:
- A350946, counted by A351977.
- A351980, counted by A351981.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A122111 represents partition conjugation using Heinz numbers.
A195017 = # of even parts - # of odd parts.
A257991 counts odd parts, conjugate A344616.
A257992 counts even parts, conjugate A350847.
A316524 = alternating sum of prime indices.
Cf. A026424, A028260, A098123, A130780, A171966, A241638, A325700, A350849, A350941, A350942, A350950, A350951.

Programs

Formula

Intersection of A350944 and A350945.
A257991(a(n)) = A344616(a(n)).
A257992(a(n)) = A350847(a(n)).
Closed under A122111 (conjugation).

A379301 Positive integers whose prime indices include a unique composite number.

Original entry on oeis.org

7, 13, 14, 19, 21, 23, 26, 28, 29, 35, 37, 38, 39, 42, 43, 46, 47, 52, 53, 56, 57, 58, 61, 63, 65, 69, 70, 71, 73, 74, 76, 77, 78, 79, 84, 86, 87, 89, 92, 94, 95, 97, 101, 103, 104, 105, 106, 107, 111, 112, 113, 114, 115, 116, 117, 119, 122, 126, 129, 130, 131
Offset: 1

Views

Author

Gus Wiseman, Dec 25 2024

Keywords

Comments

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.

Examples

			The prime indices of 70 are {1,3,4}, so 70 is in the sequence.
The prime indices of 98 are {1,4,4}, so 98 is not in the sequence.

Crossrefs

For no composite parts we have A302540, counted by A034891 (strict A036497).
For all composite parts we have A320629, counted by A023895 (strict A204389).
For a unique prime part we have A331915, counted by A379304 (strict A379305).
Positions of one in A379300.
Partitions of this type are counted by A379302 (strict A379303).
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.
A066247 is the characteristic function for the composite numbers.
A377033 gives k-th differences of composite numbers, see A073445, A377034-A377037.
Other counts of prime indices:
- A087436 postpositive, see A038550.
- 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.
- A379311 old prime, see A379312-A379315.
Cf. A113646, A376680.

Programs

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

A350849 Number of odd conjugate parts minus number of even parts in the integer partition with Heinz number n.

Original entry on oeis.org

0, 1, 1, 0, 3, 0, 3, 1, -2, 2, 5, 1, 5, 2, 0, 0, 7, -1, 7, 3, 0, 4, 9, 0, 0, 4, -1, 3, 9, 1, 11, 1, 2, 6, 0, -2, 11, 6, 2, 2, 13, 1, 13, 5, 1, 8, 15, 1, -2, 1, 4, 5, 15, -2, 2, 2, 4, 8, 17, 0, 17, 10, 1, 0, 2, 3, 19, 7, 6, 1, 19, -1, 21, 10, 1, 7, 0, 3, 21, 3
Offset: 1

Views

Author

Gus Wiseman, Jan 28 2022

Keywords

Comments

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.

Examples

			First positions n such that a(n) = 4, 3, 2, 1, 0, -1, -2, -3, -4, together with their prime indices, are:
   22: (5,1)
    5: (3)
   10: (3,1)
    2: (1)
    1: ()
   18: (2,2,1)
    9: (2,2)
  162: (2,2,2,2,1)
   81: (2,2,2,2)

Crossrefs

This is a hybrid of A195017 and A350941.
Positions of 0's are A349157.
Counting even conjugate parts instead of even parts gives A350941.
The conjugate version is A350942.
A257991 counts odd parts, conjugate A344616.
A257992 counts even parts, conjugate A350847.
The following rank partitions:
A325698: # of even parts = # of odd parts.
A349157: # of even parts = # of odd conjugate parts, counted by A277579.
A350848: # even conj parts = # odd conj parts, counted by A045931.
A350943: # of even conjugate parts = # of odd parts, counted by A277579.
A350944: # of odd parts = # of odd conjugate parts, counted by A277103.
A350945: # of even parts = # of even conjugate parts, counted by A350948.
A000041 = integer partitions, strict A000009.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A122111 represents conjugation using Heinz numbers.
A316524 = alternating sum of prime indices.
Cf. A026424, A028260, A130780, A171966, A239241, A241638, A325700, A350947, A350949, A350950, A350951.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Count[conj[primeMS[n]],?OddQ]-Count[primeMS[n],?EvenQ],{n,100}]

Formula

a(n) = A344616(n) - A257992(n).

A350946 Heinz numbers of integer partitions with as many even parts as odd parts and as many even conjugate parts as odd conjugate parts.

Original entry on oeis.org

1, 6, 65, 84, 210, 216, 319, 490, 525, 532, 731, 1254, 1403, 1924, 2184, 2340, 2449, 2470, 3024, 3135, 3325, 3774, 4028, 4141, 4522, 5311, 5460, 7030, 7314, 7315, 7560, 7776, 7942, 8201, 8236, 9048, 9435, 9464, 10659, 10921, 11484, 11914, 12012, 12025, 12740
Offset: 1

Views

Author

Gus Wiseman, Mar 14 2022

Keywords

Comments

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.

Examples

			The terms together with their prime indices begin:
     1: ()
     6: (2,1)
    65: (6,3)
    84: (4,2,1,1)
   210: (4,3,2,1)
   216: (2,2,2,1,1,1)
   319: (10,5)
   490: (4,4,3,1)
   525: (4,3,3,2)
   532: (8,4,1,1)
   731: (14,7)
  1254: (8,5,2,1)
  1403: (18,9)
  1924: (12,6,1,1)
  2184: (6,4,2,1,1,1)
  2340: (6,3,2,2,1,1)
  2449: (22,11)
  2470: (8,6,3,1)
For example, the prime indices of 532 are (8,4,1,1), even/odd counts 2/2, and the prime indices of the conjugate 3024 are (4,2,2,2,1,1,1,1), with even/odd counts 4/4; so 532 belongs to the sequence.

Crossrefs

For the first condition alone:
- counted by A045931 (strict A239241)
- ordered version (compositions) A098123
- ranked by A325698
- without multiplicity A325700 (counted by A241638)
The second condition alone is ranked by A350848, strict A352129.
These partitions are counted by A351977, strict A352128.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are four other possible pairings of statistics:
- A349157: # of even parts = # of odd conjugate parts, counted by A277579.
- A350943: # of even conj parts = # of odd parts, strict counted by A352130.
- A350944: # of odd parts = # of odd conjugate parts, counted by A277103.
- A350945: # of even parts = # of even conjugate parts, counted by A350948.
There are two other possible double-pairings of statistics:
- A350949, counted by A351976.
- A351980, counted by A351981.
The case of all four statistics equal is A350947, counted by A351978.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A122111 represents partition conjugation using Heinz numbers.
A195017 = # of even parts - # of odd parts.
A316524 = alternating sum of prime indices.
Cf. A026424, A028260, A130780, A171966, A347450, A350849, A350941, A350942, A350950, A350951.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[1000],#==1||Mean[Mod[primeMS[#],2]]== Mean[Mod[conj[primeMS[#]],2]]==1/2&]

Formula

Closed under A122111 (conjugation).
Intersection of A325698 and A350848.
A257992(a(n)) = A257991(a(n)).
A350847(a(n)) = A344616(a(n)).

A350950 Number of even parts minus number of even conjugate parts in the integer partition with Heinz number n.

Original entry on oeis.org

0, 0, 1, -1, 0, 0, 1, 0, 0, -1, 0, 1, 1, 0, -1, -1, 0, 1, 1, 0, 0, 1, 0, 0, -3, 0, 3, 1, 1, 0, 0, 0, -1, -1, -2, 0, 1, 0, 0, -1, 0, 1, 1, 0, 2, -1, 0, 1, -2, -2, -1, 1, 1, 2, -3, 0, 0, 0, 0, -1, 1, -1, 3, -1, -2, 0, 0, 0, -1, -1, 1, 1, 0, 0, 0, 1, -3, 1, 1, 0
Offset: 1

Views

Author

Gus Wiseman, Mar 14 2022

Keywords

Comments

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.

Examples

			The prime indices of 78 are (6,2,1), with conjugate (3,2,1,1,1,1), so a(78) = 2 - 1 = 1.

Crossrefs

The version comparing even with odd parts is A195017.
The version comparing even with odd conjugate parts is A350849.
The version comparing even conjugate with odd conjugate parts is A350941.
The version comparing odd with even conjugate parts is A350942.
Positions of 0's are A350945, counted by A350948.
The version comparing odd with odd conjugate parts is A350951.
There are four individual statistics:
- A257991 counts odd parts, conjugate A344616.
- A257992 counts even parts, conjugate A350847.
There are five other possible pairings of statistics:
- A325698: # of even parts = # of odd parts, counted by A045931.
- A349157: # of even parts = # of odd conjugate parts, counted by A277579.
- A350848: # of even conj parts = # of odd conj parts, counted by A045931.
- A350943: # of even conjugate parts = # of odd parts, counted by A277579.
- A350944: # of odd parts = # of odd conjugate parts, counted by A277103.
There are three possible double-pairings of statistics:
- A350946, counted by A351977.
- A350949, counted by A351976.
- A351980, counted by A351981.
The case of all four statistics equal is A350947, counted by A351978.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A116482 counts partitions by number of even parts.
A122111 represents partition conjugation using Heinz numbers.
A316524 gives the alternating sum of prime indices.
Cf. A028260, A088218, A098123, A236559, A239241, A241638, A325700, A347450.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Count[primeMS[n],?EvenQ]-Count[conj[primeMS[n]],?EvenQ],{n,100}]

Formula

a(n) = A257992(n) - A350847(n).
a(A122111(n)) = -a(n), where A122111 represents partition conjugation.

A350951 Number of odd parts minus number of odd conjugate parts in the integer partition with Heinz number n.

Original entry on oeis.org

0, 0, -2, 2, -2, 0, -4, 2, 0, 0, -4, 0, -6, -2, 0, 4, -6, 0, -8, 0, -2, -2, -8, 2, 2, -4, -2, -2, -10, 0, -10, 4, -2, -4, 0, 2, -12, -6, -4, 2, -12, -2, -14, -2, -2, -6, -14, 2, 0, 2, -4, -4, -16, 0, 0, 0, -6, -8, -16, 2, -18, -8, -4, 6, -2, -2, -18, -4, -6, 0
Offset: 1

Views

Author

Gus Wiseman, Mar 14 2022

Keywords

Comments

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.
All terms are even.

Examples

			The prime indices of 78 are (6,2,1), with conjugate (3,2,1,1,1,1), so a(78) = 1 - 5 = -4.

Crossrefs

The version comparing even with odd parts is A195017.
The version comparing even with odd conjugate parts is A350849.
The version comparing even conjugate with odd conjugate parts is A350941.
The version comparing odd with even conjugate parts is A350942.
Positions of 0's are A350944, even rank case A345196, counted by A277103.
The version comparing even with even conjugate parts is A350950.
There are four individual statistics:
- A257991 counts odd parts, conjugate A344616.
- A257992 counts even parts, conjugate A350847.
There are five other possible pairings of statistics:
- A325698: # of even parts = # of odd parts, counted by A045931.
- A349157: # of even parts = # of odd conjugate parts, counted by A277579.
- A350848: # of even conj parts = # of odd conj parts, counted by A045931.
- A350943: # of even conjugate parts = # of odd parts, counted by A277579.
- A350945: # of even parts = # of even conjugate parts, counted by A350948.
There are three possible double-pairings of statistics:
- A350946, counted by A351977.
- A350949, counted by A351976.
- A351980, counted by A351981.
The case of all four statistics equal is A350947, counted by A351978.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A103919 counts partitions by number of odd parts.
A116482 counts partitions by number of even parts.
A122111 represents partition conjugation using Heinz numbers.
A316524 gives the alternating sum of prime indices.
Cf. A026424, A028260, A053738, A098123, A130780, A171966, A236559, A236914, A239241, A241638, A325700.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Count[primeMS[n],?OddQ]-Count[conj[primeMS[n]],?OddQ],{n,100}]

Formula

a(n) = A257991 - A344616(n).
a(A122111(n)) = -a(n), where A122111 represents partition conjugation.

A350941 Number of odd conjugate parts minus number of even conjugate parts in the integer partition with Heinz number n.

Original entry on oeis.org

0, 1, 2, -1, 3, 0, 4, 1, -2, 1, 5, 2, 6, 2, -1, -1, 7, 0, 8, 3, 0, 3, 9, 0, -3, 4, 2, 4, 10, 1, 11, 1, 1, 5, -2, -2, 12, 6, 2, 1, 13, 2, 14, 5, 3, 7, 15, 2, -4, -1, 3, 6, 16, 0, -1, 2, 4, 8, 17, -1, 18, 9, 4, -1, 0, 3, 19, 7, 5, 0, 20, 0, 21, 10, 1, 8, -3, 4
Offset: 0

Views

Author

Gus Wiseman, Jan 28 2022

Keywords

Comments

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.

Examples

			First positions n such that a(n) = 4, 3, 2, 1, 0, -1, -2, -3, -4, together with their prime indices, are:
   7: (4)
   5: (3)
   3: (2)
   2: (1)
   1: ()
   4: (1,1)
   9: (2,2)
  25: (3,3)
  49: (4,4)

Crossrefs

A hybrid with A195017 (non-conjugate version) is A350849, conjugate A350942.
Positions of 0's are A350848, counted by A045931.
A000041 = integer partitions, strict A000009.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A122111 represents conjugation using Heinz numbers.
A257991 counts odd parts, conjugate A344616.
A257992 counts even parts, conjugate A350847.
A316524 = alternating sum of prime indices.
The following rank partitions:
A325698: # of even parts = # of odd parts.
A349157: # of even parts = # of odd conjugate parts, counted by A277579.
A350943: # of even conjugate parts = # of odd parts, counted by A277579.
A350944: # of odd parts = # of odd conjugate parts, counted by A277103.
A350945: # of even parts = # of even conjugate parts, counted by A350948.
Cf. A026424, A028260, A130780, A171966, A239241, A241638, A325700, A350841, A350947, A350949, A350951.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Count[conj[primeMS[n]],?OddQ]-Count[conj[primeMS[n]],?EvenQ],{n,1,50}]

Formula

a(n) = A344616(n) - A350847(n).

A351976 Number of integer partitions of n with (1) as many odd parts as odd conjugate parts and (2) as many even parts as even conjugate parts.

Original entry on oeis.org

1, 1, 0, 1, 1, 1, 1, 1, 2, 2, 2, 4, 5, 5, 5, 6, 9, 11, 11, 16, 21, 22, 24, 31, 41, 46, 48, 64, 82, 91, 98, 120, 155, 175, 188, 237, 297, 329, 357, 437, 544, 607, 658, 803, 987, 1098, 1196, 1432, 1749, 1955, 2126, 2541, 3071, 3417, 3729, 4406, 5291, 5890, 6426
Offset: 0

Views

Author

Gus Wiseman, Mar 14 2022

Keywords

Examples

			The a(n) partitions for selected n:
n = 3     8       11        12        15          16
   ----------------------------------------------------------
    (21)  (332)   (4322)    (4332)    (4443)      (4444)
          (4211)  (4331)    (4422)    (54321)     (53332)
                  (4421)    (4431)    (632211)    (55222)
                  (611111)  (53211)   (633111)    (55411)
                            (621111)  (642111)    (633211)
                                      (81111111)  (642211)
                                                  (643111)
                                                  (7321111)
                                                  (82111111)

Crossrefs

The first condition alone is A277103, ranked by A350944, strict A000700.
The second condition alone is A350948, ranked by A350945.
These partitions are ranked by A350949.
A000041 counts integer partitions.
A122111 represents partition conjugation using Heinz numbers.
A195017 = # of even parts - # of odd parts.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are four other possible pairings of statistics:
- A045931: # even = # odd, ranked by A325698, strict A239241.
- A045931: # even conj = # odd conj, ranked by A350848, strict A352129.
- A277579: # even = # odd conj, ranked by A349157, strict A352131.
- A277579: # even conj = # odd, ranked by A350943, strict A352130.
There are two other possible double-pairings of statistics:
- A351977: # even = # odd, # even conj = # odd conj, ranked by A350946.
- A351981: # even = # odd conj, # odd = # even conj, ranked by A351980.
The case of all four statistics equal is A351978, ranked by A350947.
Cf. A088218, A098123, A130780, A171966, A236559, A236914, A241638, A350849, A350941, A350942, A350950, A350951.

Programs

A351977 Number of integer partitions of n with as many even parts as odd parts and as many even conjugate parts as odd conjugate parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 0, 1, 2, 1, 0, 2, 0, 2, 4, 2, 1, 6, 6, 7, 9, 11, 10, 13, 17, 17, 21, 28, 36, 35, 41, 58, 71, 72, 90, 106, 121, 142, 178, 191, 216, 269, 320, 344, 400, 486, 564, 633, 734, 867, 991, 1130, 1312, 1509, 1702, 1978, 2288, 2582, 2917, 3404
Offset: 0

Views

Author

Gus Wiseman, Mar 14 2022

Keywords

Examples

			The a(n) partitions for selected n (A..C = 10..12):
n = 3     9         15            18          20
   ----------------------------------------------------------
    (21)  (63)      (A5)          (8433)      (8543)
          (222111)  (632211)      (8532)      (8741)
                    (642111)      (8631)      (C611)
                    (2222211111)  (43322211)  (43332221)
                                  (44322111)  (44432111)
                                  (44421111)  (84221111)
                                              (422222111111)

Crossrefs

The first condition alone is A045931, ranked by A325698, strict A239241.
The second condition alone is A045931, ranked by A350848, strict A352129.
These partitions are ranked by A350946.
The strict case is A352128.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are four additional pairings of statistics:
- A277579: # even = # odd conj, ranked by A349157, strict A352131.
- A277579: # even conj = # odd, ranked by A350943, strict A352130.
- A277103: # odd = # odd conj, ranked by A350944, strict A000700.
- A350948: # even = # even conj, ranked by A350945.
There are two additional double-pairings of statistics:
- A351981, ranked by A351980.
- A351976, ranked by A350949.
The case of all four statistics equal is A351978, ranked by A350947.
Cf. A000041, A000070, A088218, A098123, A130780, A171966, A195017, A236559, A236914, A241638, A350849.

Programs

  • Mathematica
    conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n],Count[#,?OddQ]==Count[#,?EvenQ]&&Count[conj[#],?OddQ]==Count[conj[#],?EvenQ]&]],{n,0,30}]

A351978 Number of integer partitions of n for which the number of even parts, the number of odd parts, the number of even conjugate parts, and the number of odd conjugate parts are all equal.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 2, 0, 0, 2, 0, 1, 0, 6, 1, 3, 1, 8, 5, 3, 5, 7, 14, 2, 13, 9, 28, 5, 22, 26, 44, 17, 30, 60, 59, 42, 41, 120, 84, 84, 66, 204, 143, 144, 131, 325, 268, 226, 261, 486, 498, 344, 488, 739, 874
Offset: 0

Views

Author

Gus Wiseman, Mar 15 2022

Keywords

Examples

			The a(n) partitions for selected n (A = 10):
n = 3    12     19       21       23       24         27
   --------------------------------------------------------------
    21   4332   633322   643332   644333   84332211   655443
         4431   643321   654321   654332   84441111   655542
                644311   665211   654431   85322211   665541
                653221            655322   86322111   666333
                654211            655421   86421111   666531
                664111            664331              A522221111
                                  665321              A622211111
                                  666311

Crossrefs

The strict case appears to be the indicator function for A014105.
These partitions are ranked by A350947.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are six pairings of statistics:
- A045931: # of even parts = # of odd parts:
- ordered A098123
- strict A239241
- ranked by A325698
- A045931: # even conj = # odd conj, ranked by A350848, strict A352129.
- A277579: # even = # odd conj, ranked by A349157, strict A352131.
- A277103: # odd = # odd conj, ranked by A350944, strict A000700.
- A277579: # even conj = # odd, ranked by A350943, strict A352130.
- A350948: # even = # even conj, ranked by A350945.
There are three double-pairings of statistics:
- A351976, ranked by A350949.
- A351977, ranked by A350946.
- A351981, ranked by A351980.
A000041 counts integer partitions, strict A000009.
A103919 and A116482 count partitions by sum and number of odd/even parts.
A195017 = # of even parts - # of odd parts.
Cf. A000070, A122111, A130780, A171966, A236559, A236914, A350849, A350941, A350942, A350950, A350951.

Programs

  • Mathematica
    conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n],Count[#,?EvenQ]==Count[#,?OddQ]==Count[conj[#],?EvenQ]==Count[conj[#],?OddQ]&]],{n,0,30}]
Previous Showing 21-30 of 84 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.