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.

Showing 1-5 of 5 results.

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

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}]

A352129 Number of strict integer partitions of n with as many even conjugate parts as odd conjugate parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 2, 1, 3, 2, 3, 4, 3, 5, 5, 6, 6, 9, 8, 10, 12, 13, 15, 17, 20, 20, 26, 26, 32, 35, 39, 44, 50, 55, 61, 71, 76, 87, 96, 108, 117, 135, 145, 164, 181, 200, 222, 246, 272, 298, 334, 363, 404, 443
Offset: 0

Views

Author

Gus Wiseman, Mar 15 2022

Keywords

Examples

			The a(n) strict partitions for selected n:
n = 3      13         15         18         20           22
   ------------------------------------------------------------------
    (2,1)  (6,5,2)    (10,5)     (12,6)     (12,7,1)     (12,8,2)
           (6,4,2,1)  (6,4,3,2)  (8,7,3)    (8,5,4,3)    (8,6,5,3)
                      (6,5,3,1)  (8,5,3,2)  (8,6,4,2)    (8,7,5,2)
                                 (8,6,3,1)  (8,7,4,1)    (12,7,2,1)
                                            (8,6,3,2,1)  (8,6,4,3,1)
                                                         (8,7,4,2,1)

Crossrefs

This is the strict case of A045931, ranked by A350848 (zeros of A350941).
The conjugate version is A239241, non-strict A045931 (ranked by A325698).
A000041 counts integer partitions, strict A000009.
A130780 counts partitions with no more even than odd parts, strict A239243.
A171966 counts partitions with no more odd than even parts, strict A239240.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are four other pairings of statistics:
- A277579, ranked by A349157, strict A352131.
- A277103, ranked by A350944.
- A277579, ranked by A350943, strict A352130.
- A350948, ranked by A350945.
There are three double-pairings of statistics:
- A351976, ranked by A350949.
- A351977, ranked by A350946, strict A352128.
- A351981, ranked by A351980.
The case of all four statistics equal is A351978, ranked by A350947.
Cf. A000070, A098123, A195017, A236559, A241638, A350839, A350849, A350942.

Programs

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

A352130 Number of strict integer partitions of n with as many odd parts as even conjugate parts.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 4, 5, 6, 7, 7, 8, 9, 11, 12, 13, 14, 16, 18, 21, 23, 25, 28, 31, 34, 37, 41, 45, 50, 55, 60, 65, 72, 79, 86, 93, 102, 111, 121, 132, 143, 155, 169, 183, 197, 213, 231, 251, 271, 292, 315, 340, 367, 396
Offset: 0

Views

Author

Gus Wiseman, Mar 15 2022

Keywords

Examples

			The a(n) strict partitions for selected n:
n = 2    7        9        13        14         15         16
   --------------------------------------------------------------------
    (2)  (6,1)    (8,1)    (12,1)    (14)       (14,1)     (16)
         (4,2,1)  (4,3,2)  (6,4,3)   (6,5,3)    (6,5,4)    (8,5,3)
                  (6,2,1)  (8,3,2)   (10,3,1)   (8,4,3)    (12,3,1)
                           (10,2,1)  (6,4,3,1)  (10,3,2)   (6,5,4,1)
                                     (8,3,2,1)  (12,2,1)   (8,4,3,1)
                                                (6,5,3,1)  (10,3,2,1)
                                                           (6,4,3,2,1)

Crossrefs

This is the strict case of A277579, ranked by A350943 (zeros of A350942).
The conjugate version is A352131, non-strict A277579 (ranked by A349157).
A000041 counts integer partitions, strict A000009.
A130780 counts partitions with no more even than odd parts, strict A239243.
A171966 counts partitions with no more odd than even parts, strict A239240.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are four other pairings of statistics:
- A045931, ranked by A325698, strict A239241.
- A045931, ranked by A350848, strict A352129.
- A277103, ranked by A350944, strict new.
- A350948, ranked by A350945, strict new.
There are three double-pairings of statistics:
- A351976, ranked by A350949, strict A010054?
- A351977, ranked by A350946, strict A352128.
- A351981, ranked by A351980. strict A014105?
The case of all four statistics equal is A351978, ranked by A350947.
Cf. A027187, A027193, A103919, A122111, A236559, A325039, A344607, A344651, A345196, 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],UnsameQ@@#&&Count[#,?OddQ]==Count[conj[#],?EvenQ]&]],{n,0,30}]

A352131 Number of strict integer partitions of n with same number of even parts as odd conjugate parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 2, 1, 1, 2, 3, 2, 2, 3, 4, 3, 4, 5, 5, 5, 6, 7, 7, 8, 10, 10, 10, 12, 14, 15, 14, 17, 21, 20, 20, 25, 28, 28, 29, 34, 39, 39, 40, 47, 52, 53, 56, 64, 70, 71, 77, 86, 92, 97, 104, 114, 122
Offset: 0

Views

Author

Gus Wiseman, Mar 15 2022

Keywords

Examples

			The a(n) strict partitions for selected n:
n = 3      10         14         18         21             24
   ----------------------------------------------------------------------
    (2,1)  (6,4)      (8,6)      (10,8)     (11,10)        (8,7,5,4)
           (4,3,2,1)  (5,4,3,2)  (6,5,4,3)  (8,6,4,3)      (9,8,4,3)
                      (6,5,2,1)  (7,6,3,2)  (8,7,4,2)      (10,8,4,2)
                                 (8,7,2,1)  (10,8,2,1)     (10,9,3,2)
                                            (6,5,4,3,2,1)  (11,10,2,1)
                                                           (8,6,4,3,2,1)

Crossrefs

This is the strict case of A277579, ranked by A349157 (zeros of A350849).
The conjugate version is A352130, non-strict A277579 (ranked by A350943).
A000041 counts integer partitions, strict A000009.
A130780 counts partitions with no more even than odd parts, strict A239243.
A171966 counts partitions with no more odd than even parts, strict A239240.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are four other pairings of statistics:
- A045931, ranked by A325698, strict A239241.
- A045931, ranked by A350848, strict A352129.
- A277103, ranked by A350944.
- A350948, ranked by A350945.
There are three double-pairings of statistics:
- A351976, ranked by A350949.
- A351977, ranked by A350946, strict A352128.
- A351981, ranked by A351980.
The case of all four statistics equal is A351978, ranked by A350947.
Cf. A027187, A027193, A103919, A122111, A236559, A325039, A344607, A344651, A345196, 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],UnsameQ@@#&&Count[#,?EvenQ]==Count[conj[#],?OddQ]&]],{n,0,30}]
Showing 1-5 of 5 results.

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

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