A064410 -id:A064410 - cp's OEIS frontend

A352873 Heinz numbers of integer partitions with nonnegative crank, counted by A064428.

1, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 85, 86, 87, 89, 90

Offset: 1

Gus Wiseman, Apr 09 2022

nonn

First differs from A042968, A059557, and A195291 in lacking 2 and having 100.
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 crank of a partition p is defined to be (i) the largest part of p if there is no 1 in p and (ii) (the number of parts larger than the number of 1's) minus (the number of 1's). [Definition copied from A342192; see A064428 for a different wording.]

			The terms together with their prime indices begin:
     1: ()         22: (5,1)      42: (4,2,1)
     3: (2)        23: (9)        43: (14)
     5: (3)        25: (3,3)      45: (3,2,2)
     6: (2,1)      26: (6,1)      46: (9,1)
     7: (4)        27: (2,2,2)    47: (15)
     9: (2,2)      29: (10)       49: (4,4)
    10: (3,1)      30: (3,2,1)    50: (3,3,1)
    11: (5)        31: (11)       51: (7,2)
    13: (6)        33: (5,2)      53: (16)
    14: (4,1)      34: (7,1)      54: (2,2,2,1)
    15: (3,2)      35: (4,3)      55: (5,3)
    17: (7)        37: (12)       57: (8,2)
    18: (2,2,1)    38: (8,1)      58: (10,1)
    19: (8)        39: (6,2)      59: (17)
    21: (4,2)      41: (13)       61: (18)

* = unproved
These partitions are counted by A064428.
The case of zero crank is A342192, counted by A064410.
The case of positive crank is A352874.
A000700 counts self-conjugate partitions, ranked by A088902.
A001222 counts prime indices, distinct A001221.
*A001522 counts partitions with a fixed point, ranked by A352827.
A056239 adds up prime indices, row sums of A112798 and A296150.
*A064428 counts partitions without a fixed point, ranked by A352826.
A115720 and A115994 count partitions by their Durfee square.
A122111 represents partition conjugation using Heinz numbers.
A238394 counts reversed partitions without a fixed point, ranked by A352830.
Cf. A065770, A093641, A118199, A188674, A252464, A257990, A325163, A325169, A344609, A352828, A352831.

ck[y_]:=With[{w=Count[y,1]},If[w==0,Max@@y,Count[y,_?(#>w&)]-w]];
Select[Range[100],ck[Reverse[Flatten[Cases[FactorInteger[#],{p_,k_}:>Table[PrimePi[p],{k}]]]]]>=0&]

Union of A352874 and A342192.

A352874 Heinz numbers of integer partitions with positive crank, counted by A001522.

Original entry on oeis.org

3, 5, 7, 9, 11, 13, 15, 17, 18, 19, 21, 23, 25, 27, 29, 30, 31, 33, 35, 37, 39, 41, 42, 43, 45, 47, 49, 50, 51, 53, 54, 55, 57, 59, 61, 63, 65, 66, 67, 69, 70, 71, 73, 75, 77, 78, 79, 81, 83, 85, 87, 89, 90, 91, 93, 95, 97, 98, 99, 101, 102, 103, 105, 107, 109

Offset: 1

Gus Wiseman, Apr 09 2022

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 crank of a partition p is defined to be (i) the largest part of p if there is no 1 in p and (ii) (the number of parts larger than the number of 1's) minus (the number of 1's). [Definition copied from A342192; see A064428 for a different wording.]

			The terms together with their prime indices begin:
      3: (2)         30: (3,2,1)     54: (2,2,2,1)
      5: (3)         31: (11)        55: (5,3)
      7: (4)         33: (5,2)       57: (8,2)
      9: (2,2)       35: (4,3)       59: (17)
     11: (5)         37: (12)        61: (18)
     13: (6)         39: (6,2)       63: (4,2,2)
     15: (3,2)       41: (13)        65: (6,3)
     17: (7)         42: (4,2,1)     66: (5,2,1)
     18: (2,2,1)     43: (14)        67: (19)
     19: (8)         45: (3,2,2)     69: (9,2)
     21: (4,2)       47: (15)        70: (4,3,1)
     23: (9)         49: (4,4)       71: (20)
     25: (3,3)       50: (3,3,1)     73: (21)
     27: (2,2,2)     51: (7,2)       75: (3,3,2)
     29: (10)        53: (16)        77: (5,4)

* = unproved
These partitions are counted by A001522.
The case of zero crank is A342192, counted by A064410.
The case of nonnegative crank is A352873, counted by A064428.
A000700 counts self-conjugate partitions, ranked by A088902.
A001222 counts prime indices, distinct A001221.
*A001522 counts partitions with a fixed point, ranked by A352827.
A056239 adds up prime indices, row sums of A112798 and A296150.
*A064428 counts partitions without a fixed point, ranked by A352826.
A115720 and A115994 count partitions by their Durfee square.
A122111 represents partition conjugation using Heinz numbers.
A238395 counts reversed partitions with a fixed point, ranked by A352872.
Cf. A065770, A093641, A118199, A188674, A252464, A257990, A325163, A325169, A344609, A352828, A352831.

ck[y_]:=With[{w=Count[y,1]},If[w==0,Max@@y,Count[y,_?(#>w&)]-w]];
Select[Range[100],ck[Reverse[Flatten[Cases[FactorInteger[#],{p_,k_}:>Table[PrimePi[p],{k}]]]]]>0&]

Complement of A342192 in A352873.

A342532 Number of even-length compositions of n with alternating parts distinct.

Original entry on oeis.org

1, 0, 1, 2, 3, 4, 9, 14, 28, 44, 83, 136, 250, 424, 757, 1310, 2313, 4018, 7081, 12314, 21650, 37786, 66264, 115802, 202950, 354858, 621525, 1087252, 1903668, 3330882, 5831192, 10204250, 17862232, 31260222, 54716913, 95762576, 167614445, 293356422, 513456686

Offset: 0

Gus Wiseman, Mar 28 2021

nonn

These are finite even-length sequences q of positive integers summing to n such that q(i) != q(i+2) for all possible i.

			The a(2) = 1 through a(7) = 14 compositions:
  (1,1)  (1,2)  (1,3)  (1,4)  (1,5)      (1,6)
         (2,1)  (2,2)  (2,3)  (2,4)      (2,5)
                (3,1)  (3,2)  (3,3)      (3,4)
                       (4,1)  (4,2)      (4,3)
                              (5,1)      (5,2)
                              (1,1,2,2)  (6,1)
                              (1,2,2,1)  (1,1,2,3)
                              (2,1,1,2)  (1,1,3,2)
                              (2,2,1,1)  (1,2,3,1)
                                         (1,3,2,1)
                                         (2,1,1,3)
                                         (2,3,1,1)
                                         (3,1,1,2)
                                         (3,2,1,1)

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

The strictly decreasing version appears to be A064428 (odd-length: A001522).
The equal version is A065608 (A342527 with odds).
The weakly decreasing version is A114921 (A342528 with odds).
Including odds gives A224958.
A000726 counts partitions with alternating parts unequal.
A325545 counts compositions with distinct first differences.
A342529 counts compositions with distinct first quotients.
Cf. A000009, A000041, A003242, A008965, A032020, A059966, A062968, A064410, A070211, A106351, A175342, A325546.

qdq[q_]:=And@@Table[q[[i]]!=q[[i+2]],{i,Length[q]-2}];
Table[Length[Select[Join@@Permutations/@Select[IntegerPartitions[n],EvenQ[Length[#]]&],qdq]],{n,0,15}]

\\ here gf gives A106351 as g.f.
gf(n, y)={1/(1 - sum(k=1, n, (-1)^(k+1)*x^k*y^k/(1-x^k) + O(x*x^n)))}
seq(n)={my(p=gf(n,y)); Vec(sum(k=0, n\2, polcoef(p,k,y)^2))} \\ Andrew Howroyd, Apr 16 2021

G.f.: 1 + Sum_{k>=1} B_k(x)^2 where B_k(x) is the g.f. of column k of A106351. - Andrew Howroyd, Apr 16 2021

Terms a(24) and beyond from Andrew Howroyd, Apr 16 2021

A295341 The number of partitions of n in which at least one part is a multiple of 3.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 4, 6, 9, 14, 20, 29, 41, 57, 78, 106, 142, 189, 250, 327, 425, 549, 705, 900, 1144, 1445, 1819, 2279, 2844, 3534, 4379, 5403, 6648, 8152, 9969, 12152, 14780, 17920, 21682, 26163, 31504, 37842, 45371, 54270, 64800, 77211, 91842, 109031, 129235, 152897

Offset: 0

R. J. Mathar, Nov 20 2017

nonn

From Gus Wiseman, May 23 2022: (Start)
Also the number of integer partitions of n with at least one part appearing more than twice. The Heinz numbers of these partitions are given by A046099. For example, the a(0) = 0 though a(8) = 9 partitions are:
  .  .  .  (111)  (1111)  (2111)   (222)     (2221)     (2222)
                          (11111)  (3111)    (4111)     (5111)
                                   (21111)   (22111)    (22211)
                                   (111111)  (31111)    (32111)
                                             (211111)   (41111)
                                             (1111111)  (221111)
                                                        (311111)
                                                        (2111111)
                                                        (11111111)
(End)

			From _Gus Wiseman_, May 23 2022: (Start)
The a(0) = 0 through a(8) = 9 partitions with a part that is a multiple of 3:
  .  .  .  (3)  (31)  (32)   (6)     (43)     (53)
                      (311)  (33)    (61)     (62)
                             (321)   (322)    (332)
                             (3111)  (331)    (431)
                                     (3211)   (611)
                                     (31111)  (3221)
                                              (3311)
                                              (32111)
                                              (311111)
(End)

The complement is counted by A000726, ranked by A004709.
These partitions are ranked by A354235.
This is column k = 3 of A354234.
For 2 instead of 3 we have A047967, ranked by A013929 and A324929.
For 4 instead of 3 we have A295342, ranked by A046101.
A000041 counts integer partitions, strict A000009.
A046099 lists non-cubefree numbers.
Cf. A001522, A006918, A064410, A064428, A117485, A188674, A325187, A325534.

Table[Length[Select[IntegerPartitions[n],MemberQ[#/3,?IntegerQ]&]],{n,0,30}] (* _Gus Wiseman, May 23 2022 *)
Table[Length[Select[IntegerPartitions[n],MatchQ[#,{_,x_,x_,x_,_}]&]],{n,0,30}] (* Gus Wiseman, May 23 2022 *)

a(n) = A000041(n)-A000726(n).

A342343 Number of strict compositions of n with alternating parts strictly decreasing.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 8, 10, 13, 18, 27, 32, 44, 55, 73, 97, 121, 151, 194, 240, 299, 384, 465, 576, 706, 869, 1051, 1293, 1572, 1896, 2290, 2761, 3302, 3973, 4732, 5645, 6759, 7995, 9477, 11218, 13258, 15597, 18393, 21565, 25319, 29703, 34701, 40478, 47278, 54985

Offset: 0

Gus Wiseman, Apr 01 2021

nonn

These are finite odd-length sequences q of distinct positive integers summing to n such that q(i) > q(i+2) for all possible i.

			The a(1) = 1 through a(8) = 13 compositions:
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)
            (1,2)  (1,3)  (1,4)  (1,5)    (1,6)    (1,7)
            (2,1)  (3,1)  (2,3)  (2,4)    (2,5)    (2,6)
                          (3,2)  (4,2)    (3,4)    (3,5)
                          (4,1)  (5,1)    (4,3)    (5,3)
                                 (2,3,1)  (5,2)    (6,2)
                                 (3,1,2)  (6,1)    (7,1)
                                 (3,2,1)  (2,4,1)  (2,5,1)
                                          (4,1,2)  (3,4,1)
                                          (4,2,1)  (4,1,3)
                                                   (4,3,1)
                                                   (5,1,2)
                                                   (5,2,1)

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

The non-strict case is A000041 (see A342528 for a bijective proof).
The non-strict odd-length case is A001522.
Strict compositions in general are counted by A032020
The non-strict even-length case is A064428.
The case of reversed partitions is A065033.
A000726 counts partitions with alternating parts unequal.
A003242 counts anti-run compositions.
A027193 counts odd-length compositions.
A034008 counts even-length compositions.
A064391 counts partitions by crank.
A064410 counts partitions of crank 0.
A224958 counts compositions with alternating parts unequal.
A257989 gives the crank of the partition with Heinz number n.
A325548 counts compositions with strictly decreasing differences.
A342194 counts strict compositions with equal differences.
A342527 counts compositions with alternating parts equal.
Cf. A000009, A000670, A008965, A062968, A065608, A109613, A114921, A325546, A332304, A332305, A342532.

ici[q_]:=And@@Table[q[[i]]>q[[i+2]],{i,Length[q]-2}];
Table[Length[Select[Join@@Permutations/@Select[IntegerPartitions[n],UnsameQ@@#&],ici]],{n,0,15}]

seq(n)={my(p=prod(k=1, n, 1 + y*x^k + O(x*x^n))); Vec(sum(k=0, n, binomial(k, k\2) * polcoef(p,k,y)))} \\ Andrew Howroyd, Apr 16 2021

G.f.: Sum_{k>=0} binomial(k,floor(k/2)) * [y^k](Product_{j>=1} 1 + y*x^j). - Andrew Howroyd, Apr 16 2021

A354234 Triangle read by rows where T(n,k) is the number of integer partitions of n with at least one part divisible by k.

Original entry on oeis.org

1, 2, 1, 3, 1, 1, 5, 3, 1, 1, 7, 4, 2, 1, 1, 11, 7, 4, 2, 1, 1, 15, 10, 6, 3, 2, 1, 1, 22, 16, 9, 6, 3, 2, 1, 1, 30, 22, 14, 8, 5, 3, 2, 1, 1, 42, 32, 20, 13, 8, 5, 3, 2, 1, 1, 56, 44, 29, 18, 12, 7, 5, 3, 2, 1, 1, 77, 62, 41, 27, 17, 12, 7, 5, 3, 2, 1, 1

Offset: 1

Gus Wiseman, May 22 2022

Also partitions of n with at least one part appearing k or more times. It would be interesting to have a bijective proof of this.

			Triangle begins:
   1
   2  1
   3  1  1
   5  3  1  1
   7  4  2  1  1
  11  7  4  2  1  1
  15 10  6  3  2  1  1
  22 16  9  6  3  2  1  1
  30 22 14  8  5  3  2  1  1
  42 32 20 13  8  5  3  2  1  1
  56 44 29 18 12  7  5  3  2  1  1
  77 62 41 27 17 12  7  5  3  2  1  1
For example, row n = 5 counts the following partitions:
  (5)      (32)    (32)   (41)  (5)
  (32)     (41)    (311)
  (41)     (221)
  (221)    (2111)
  (311)
  (2111)
  (11111)
At least one part appearing k or more times:
  (5)      (221)    (2111)   (11111)  (11111)
  (32)     (311)    (11111)
  (41)     (2111)
  (221)    (11111)
  (311)
  (2111)
  (11111)

Andrew Howroyd, Table of n, a(n) for n = 1..1275 (rows 1..50)

The complement is counted by A061199.
Differences of consecutive terms are A091602.
Column k = 1 is A000041.
Column k = 2 is A047967, ranked by A013929 and A324929.
Column k = 3 is A295341, ranked by A046099 and A354235.
Column k = 4 is A295342.
A000041 counts integer partitions, strict A000009.
A047966 counts uniform partitions.
Cf. A002033, A006918, A064410, A117485, A238394, A238395, A325534.

Table[Length[Select[IntegerPartitions[n],MemberQ[#/k,_?IntegerQ]&]],{n,1,15},{k,1,n}]
- or -
Table[Length[Select[IntegerPartitions[n],Max@@Length/@Split[#]>=k&]],{n,1,15},{k,1,n}]

\\ here P(k,n) is partitions with no part divisible by k as g.f.
P(k,n)={1/prod(i=1, n, 1 - if(i%k, x^i) + O(x*x^n))}
M(n,m=n)={my(p=P(n+1,n)); Mat(vector(m, k, Col(p-P(k,n), -n) ))}
{ my(A=M(12)); for(n=1, #A, print(A[n,1..n])) } \\ Andrew Howroyd, Jan 19 2023

A353316 Heinz numbers of integer partitions that have a fixed point but whose conjugate does not (counted by A118199).

Original entry on oeis.org

4, 8, 16, 27, 32, 45, 54, 63, 64, 81, 90, 99, 108, 117, 126, 128, 135, 153, 162, 171, 180, 189, 198, 207, 216, 234, 243, 252, 256, 261, 270, 279, 297, 306, 324, 333, 342, 351, 360, 369, 378, 387, 396, 405, 414, 423, 432, 459, 468, 477, 486, 504, 512, 513, 522

Offset: 1

Gus Wiseman, May 15 2022

nonn

A fixed point of a sequence y is an index y(i) = i. A fixed point of a partition is unique if it exists.

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 terms together with their prime indices begin:
    4: (1,1)
    8: (1,1,1)
   16: (1,1,1,1)
   27: (2,2,2)
   32: (1,1,1,1,1)
   45: (3,2,2)
   54: (2,2,2,1)
   63: (4,2,2)
   64: (1,1,1,1,1,1)
   81: (2,2,2,2)
   90: (3,2,2,1)
   99: (5,2,2)
  108: (2,2,2,1,1)
  117: (6,2,2)
  126: (4,2,2,1)
  128: (1,1,1,1,1,1,1)
For example, the partition (3,2,2,1) with Heinz number 90 has a fixed point at the second position, but its conjugate (4,3,1) has no fixed points, so 90 is in the sequence.

These partitions are counted by A118199.
Crank: A342192, A352873, A352874; counted by A064410, A064428, A001522.
A000700 counts self-conjugate partitions, ranked by A088902.
A056239 adds up prime indices, row sums of A112798 and A296150.
A115720/A115994 count partitions by their Durfee square, rank stat A257990.
A122111 represents partition conjugation using Heinz numbers.
A238352 counts reversed partitions by fixed points, rank statistic A352822.
A238394 counts reversed partitions without a fixed point, ranked by A352830.
A238395 counts reversed partitions with a fixed point, ranked by A352872.
A352826 ranks partitions w/o a fixed point, counted by A064428 (unproved).
A352827 ranks partitions with a fixed point, counted by A001522 (unproved).
Cf. A001222, A065770, A093641, A114088, A188674, A252464, A300788, A325163, A325169, A352831, A352828, A352829.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
pq[y_]:=Length[Select[Range[Length[y]],#==y[[#]]&]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],pq[Reverse[primeMS[#]]]>0&& pq[conj[Reverse[primeMS[#]]]]==0&]

A353317 Heinz numbers of integer partitions that have a fixed point and a conjugate fixed point (counted by A188674).

Original entry on oeis.org

2, 9, 15, 18, 21, 30, 33, 36, 39, 42, 51, 57, 60, 66, 69, 72, 78, 84, 87, 93, 102, 111, 114, 120, 123, 125, 129, 132, 138, 141, 144, 156, 159, 168, 174, 175, 177, 183, 186, 201, 204, 213, 219, 222, 228, 237, 240, 245, 246, 249, 250, 258, 264, 267, 275, 276

Offset: 1

Gus Wiseman, May 15 2022

nonn

A fixed point of a sequence y is an index y(i) = i. A fixed point of a partition is unique if it exists.

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 terms and their prime indices begin:
    2: (1)
    9: (2,2)
   15: (3,2)
   18: (2,2,1)
   21: (4,2)
   30: (3,2,1)
   33: (5,2)
   36: (2,2,1,1)
   39: (6,2)
   42: (4,2,1)
   51: (7,2)
   57: (8,2)
   60: (3,2,1,1)
   66: (5,2,1)
   69: (9,2)
   72: (2,2,1,1,1)
   78: (6,2,1)
   84: (4,2,1,1)
For example, the partition (2,2,1,1) with Heinz number 36 has a fixed point at the second position, as does its conjugate (4,2), so 36 is in the sequence.

These partitions are counted by A188674.
Crank: A342192, A352873, A352874; counted by A064410, A064428, A001522.
The strict case is A352829.
Fixed point but no conjugate fixed point: A353316, counted by A118199.
A000700 counts self-conjugate partitions, ranked by A088902.
A002467 counts permutations with a fixed point, complement A000166.
A056239 adds up prime indices, row sums of A112798 and A296150.
A115720/A115994 count partitions by their Durfee square, rank stat A257990.
A122111 represents partition conjugation using Heinz numbers.
A238352 counts reversed partitions by fixed points, rank statistic A352822.
A238394 counts reversed partitions without a fixed point, ranked by A352830.
A238395 counts reversed partitions with a fixed point, ranked by A352872.
A352826 ranks partitions w/o a fixed point, counted by A064428 (unproved).
A352827 ranks partitions with a fixed point, counted by A001522 (unproved).
Cf. A001222, A065770, A093641, A252464, A325039, A325163, A325169, A352828, A352831, A352832, A352833.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
pq[y_]:=Length[Select[Range[Length[y]],#==y[[#]]&]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],pq[Reverse[primeMS[#]]]>0&& pq[conj[Reverse[primeMS[#]]]]>0&]

cp's OEIS Frontend

A352873 Heinz numbers of integer partitions with nonnegative crank, counted by A064428.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A352874 Heinz numbers of integer partitions with positive crank, counted by A001522.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A342532 Number of even-length compositions of n with alternating parts distinct.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A295341 The number of partitions of n in which at least one part is a multiple of 3.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A342343 Number of strict compositions of n with alternating parts strictly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A354234 Triangle read by rows where T(n,k) is the number of integer partitions of n with at least one part divisible by k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A353316 Heinz numbers of integer partitions that have a fixed point but whose conjugate does not (counted by A118199).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A353317 Heinz numbers of integer partitions that have a fixed point and a conjugate fixed point (counted by A188674).

Views

Author

Keywords