A000701 -id:A000701 - cp's OEIS frontend

A330644 Number of non-self-conjugate partitions of n.

0, 0, 2, 2, 4, 6, 10, 14, 20, 28, 40, 54, 74, 98, 132, 172, 226, 292, 380, 484, 620, 784, 994, 1246, 1564, 1946, 2424, 2996, 3702, 4548, 5586, 6822, 8326, 10118, 12284, 14854, 17944, 21602, 25978, 31144, 37292, 44534, 53122, 63204, 75112, 89066, 105486, 124676, 147186, 173432

Offset: 0

Omar E. Pol, Jan 10 2020

nonn

Also number of asymmetric Ferrers graphs with n nodes.

			For n = 5 the partitions of 5 and their respective Ferrers graphs are as follows:
.
  5 * * * * *    4 * * * *    3 * * *    3 * * *    2 * *    2 * *    1 *
                 1 *          2 * *      1 *        2 * *    1 *      1 *
                                         1 *        1 *      1 *      1 *
                                                             1 *      1 *
                                                                      1 *
The number 5 has seven partitions, and one of them [3, 1, 1] is a self-conjugate partition, hence the number of non-self-conjugate partitions of 5 is 7 - 1 = 6, so a(5) = 6.
On the other hand there are six asymmetric Ferrers graphs with n nodes, they are the graphs associated to the partitions [5], [4, 1], [3, 2], [2, 2, 1], [2, 1, 1, 1], [1, 1, 1, 1, 1], so a(5) = 6.

Cf. A000041, A000700, A000701, A046682.

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

a(n) = 2*A000701(n).

A352486 Heinz numbers of non-self-conjugate integer partitions.

Original entry on oeis.org

3, 4, 5, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73

Offset: 1

Gus Wiseman, Mar 20 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 sequence lists all Heinz numbers of partitions whose Heinz number is different from that of their conjugate.

			The terms together with their prime indices begin:
   3: (2)
   4: (1,1)
   5: (3)
   7: (4)
   8: (1,1,1)
  10: (3,1)
  11: (5)
  12: (2,1,1)
  13: (6)
  14: (4,1)
  15: (3,2)
  16: (1,1,1,1)
  17: (7)
  18: (2,2,1)
For example, the self-conjugate partition (4,3,3,1) has Heinz number 350, so 350 is not in the sequence.

The complement is A088902, counted by A000700.
These partitions are counted by A330644.
These are the positions of nonzero terms in A352491.
A000041 counts integer partitions, strict A000009.
A098825 counts permutations by unfixed points.
A238349 counts compositions by fixed points, rank statistic A352512.
A325039 counts partitions w/ same product as conjugate, ranked by A325040.
A352523 counts compositions by unfixed points, rank statistic A352513.
Heinz number (rank) and partition:
- A003963 = product of partition, conjugate A329382
- A008480 = number of permutations of partition, conjugate A321648.
- A056239 = sum of partition
- A122111 = rank of conjugate partition
- A296150 = parts of partition, reverse A112798, conjugate A321649
- A352487 = less than conjugate, counted by A000701
- A352488 = greater than or equal to conjugate, counted by A046682
- A352489 = less than or equal to conjugate, counted by A046682
- A352490 = greater than conjugate, counted by A000701
Cf. A000720, A026424, A120383, A175508, A195017, A238745, A301987, A304360, A316524,  A324846, A350841.

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

a(n) != A122111(a(n)).

A053253 Coefficients of the '3rd-order' mock theta function omega(q).

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 10, 14, 18, 22, 29, 36, 44, 56, 68, 82, 101, 122, 146, 176, 210, 248, 296, 350, 410, 484, 566, 660, 772, 896, 1038, 1204, 1391, 1602, 1846, 2120, 2428, 2784, 3182, 3628, 4138, 4708, 5347, 6072, 6880, 7784, 8804, 9940, 11208, 12630

Offset: 0

Dean Hickerson, Dec 19 1999

Empirical: a(n) is the number of integer partitions mu of 2n+1 such that the diagram of mu has an odd number of cells in each row and in each column. - John M. Campbell, Apr 24 2020
From Gus Wiseman, Jun 26 2022: (Start)
By Campbell's conjecture above that a(n) is the number of partitions of 2n+1 with all odd parts and all odd conjugate parts, the a(0) = 1 through a(5) = 8 partitions are (B = 11):
  (1)  (3)    (5)      (7)        (9)          (B)
       (111)  (311)    (511)      (333)        (533)
              (11111)  (31111)    (711)        (911)
                       (1111111)  (51111)      (33311)
                                  (3111111)    (71111)
                                  (111111111)  (5111111)
                                               (311111111)
                                               (11111111111)
These partitions are ranked by A352143. (End)

Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988, pp. 15, 17, 31.

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..1000 from Seiichi Manyama)
Steven Charlton, Explicit linear dependence congruence relations for the partition function modulo 4, arXiv:2412.17459 [math.NT], 2024. See p. 3.
Leila A. Dragonette, Some asymptotic formulas for the mock theta series of Ramanujan, Trans. Amer. Math. Soc., 72 (1952) 474-500.
John F. R. Duncan, Michael J. Griffin and Ken Ono, Proof of the Umbral Moonshine Conjecture, arXiv:1503.01472 [math.RT], 2015.
George N. Watson, The final problem: an account of the mock theta functions, J. London Math. Soc., 11 (1936) 55-80.

Other '3rd-order' mock theta functions are at A000025, A053250, A053251, A053252, A053254, A053255, A261401.
Cf. A095913(n)=a(n-3).
Cf. A259094.
Conjectured to count the partitions ranked by A352143.
A069911 = strict partitions w/ all odd parts, ranked by A258116.
A078408 = partitions w/ all odd parts, ranked by A066208.
A117958 = partitions w/ all odd parts and multiplicities, ranked by A352142.
Cf. A000009, A000290, A000701, A035363 (complement A086543), A035444, A035457, A045931, A055922, A258117.

Series[Sum[q^(2n(n+1))/Product[1-q^(2k+1), {k, 0, n}]^2, {n, 0, 6}], {q, 0, 100}]

{a(n)=local(A); if(n<0, 0, A=1+x*O(x^n); polcoeff( sum(k=0, (sqrtint(2*n+1)-1)\2, A*=(x^(4*k)/(1-x^(2*k+1))^2 +x*O(x^(n-2*(k^2-k))))), n))} /* Michael Somos, Aug 18 2006 */

{a(n)=local(A); if(n<0, 0, n++; A=1+x*O(x^n); polcoeff( sum(k=0, n-1, A*=(x/(1-x^(2*k+1)) +x*O(x^(n-k)))), n))} /* Michael Somos, Aug 18 2006 */

G.f.: omega(q) = Sum_{n>=0} q^(2*n*(n+1))/((1-q)*(1-q^3)*...*(1-q^(2*n+1)))^2.
G.f.: Sum_{k>=0} x^k/((1-x)(1-x^3)...(1-x^(2k+1))). - Michael Somos, Aug 18 2006
G.f.: (1 - G(0))/(1-x) where G(k) = 1 - 1/(1-x^(2*k+1))/(1-x/(x-1/G(k+1) )); (continued fraction). - Sergei N. Gladkovskii, Jan 18 2013
a(n) ~ exp(Pi*sqrt(n/3)) / (4*sqrt(n)). - Vaclav Kotesovec, Jun 10 2019
Conjectural g.f.: 1/(1 - x)*( 1 + Sum_{n >= 0} x^(3*n+1) /((1 - x)*(1 - x^3)*...*(1 - x^(2*n+1))) ). - Peter Bala, Nov 18 2024

A352491 n minus the Heinz number of the conjugate of the integer partition with Heinz number n.

Original entry on oeis.org

0, 0, -1, 1, -3, 0, -9, 3, 0, -2, -21, 2, -51, -10, -3, 9, -111, 3, -237, 0, -15, -26, -489, 10, -2, -70, 2, -12, -995, 0, -2017, 21, -39, -158, -19, 15, -4059, -346, -105, 12, -8151, -18, -16341, -36, -5, -722, -32721, 26, -32, 5, -237, -108, -65483, 19, -53

Offset: 1

Gus Wiseman, Mar 20 2022

sign

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.

Problem: What is the image? In the nonnegative case it appears to start: 0, 1, 2, 3, 5, 7, 9, ...

			The partition (4,4,1,1) has Heinz number 196 and its conjugate (4,2,2,2) has Heinz number 189, so a(196) = 196 - 189 = 7.

Positions of zeros are A088902, counted by A000700.
A similar sequence is A175508.
Positions of nonzero terms are A352486, counted by A330644.
Positions of negative terms are A352487, counted by A000701.
Positions of nonnegative terms are A352488, counted by A046682.
Positions of nonpositive terms are A352489, counted by A046682.
Positions of positive terms are A352490, counted by A000701.
A000041 counts integer partitions, strict A000009.
A003963 is product of prime indices, conjugate A329382.
A008480 counts permutations of prime indices, conjugate A321648.
A056239 adds up prime indices, row sums of A112798 and A296150.
A122111 is partition conjugation using Heinz numbers, parts A321649/A321650.
A124010 gives prime signature, sorted A118914, length A001221, sum A001222.
A173018 counts permutations by excedances, weak A123125.
A238744 is partition conjugate of prime signature, ranked by A238745.
Cf. A000720, A114324, A301987, A324850, A325037, A325038, A325040, A347450.

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[n-Times@@Prime/@conj[primeMS[n]],{n,30}]

a(n) = n - A122111(n).

A352833 Irregular triangle read by rows where T(n,k) is the number of integer partitions of n with k fixed points, k = 0, 1.

Original entry on oeis.org

1, 0, 0, 1, 1, 1, 2, 1, 3, 2, 4, 3, 6, 5, 8, 7, 12, 10, 16, 14, 23, 19, 30, 26, 42, 35, 54, 47, 73, 62, 94, 82, 124, 107, 158, 139, 206, 179, 260, 230, 334, 293, 420, 372, 532, 470, 664, 591, 835, 740, 1034, 924, 1288, 1148, 1588, 1422, 1962, 1756, 2404, 2161

Offset: 0

Gus Wiseman, Apr 08 2022

A fixed point of a sequence y is an index y(i) = i. A fixed point of a partition is unique if it exists, so all columns k > 1 are zeros.
Conjecture:
(1) This is A064428 interleaved with A001522.
(2) Reversing rows gives A300788, the strict version of A300787.

			Triangle begins:
  0: {1,0}
  1: {0,1}
  2: {1,1}
  3: {2,1}
  4: {3,2}
  5: {4,3}
  6: {6,5}
  7: {8,7}
  8: {12,10}
  9: {16,14}
For example, row n = 7 counts the following partitions:
  (7)       (52)
  (61)      (421)
  (511)     (322)
  (43)      (3211)
  (4111)    (2221)
  (331)     (22111)
  (31111)   (1111111)
  (211111)

Row sums are A000041.
The version for permutations is A008290, for nonfixed points A098825.
The columns appear to be A064428 and A001522.
The version counting strong nonexcedances is A114088.
The version for compositions is A238349, rank statistic A352512.
The version for reversed partitions is A238352.
Reversing rows appears to give A300788, the strict case of A300787.
A000700 counts self-conjugate partitions, ranked by A088902.
A115720 and A115994 count partitions by their Durfee square.
A330644 counts non-self-conjugate partitions, ranked by A352486.
Cf. A000701, A219282, A257990, A350839, A352513, A352521-A352525.

pq[y_]:=Length[Select[Range[Length[y]],#==y[[#]]&]];
Table[Length[Select[IntegerPartitions[n],pq[#]==k&]],{n,0,15},{k,0,1}]

A352490 Nonexcedance set of A122111. Numbers k > A122111(k), where A122111 represents partition conjugation using Heinz numbers.

Original entry on oeis.org

4, 8, 12, 16, 18, 24, 27, 32, 36, 40, 48, 50, 54, 60, 64, 72, 80, 81, 90, 96, 100, 108, 112, 120, 128, 135, 140, 144, 150, 160, 162, 168, 180, 192, 196, 200, 216, 224, 225, 240, 243, 250, 252, 256, 270, 280, 288, 300, 315, 320, 324, 336, 352, 360, 375, 378

Offset: 1

Gus Wiseman, Mar 20 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). The sequence lists all Heinz numbers of partitions whose Heinz number is greater than that of their conjugate.

			The terms together with their prime indices begin:
    4: (1,1)
    8: (1,1,1)
   12: (2,1,1)
   16: (1,1,1,1)
   18: (2,2,1)
   24: (2,1,1,1)
   27: (2,2,2)
   32: (1,1,1,1,1)
   36: (2,2,1,1)
   40: (3,1,1,1)
   48: (2,1,1,1,1)
   50: (3,3,1)
   54: (2,2,2,1)
   60: (3,2,1,1)
   64: (1,1,1,1,1,1)
For example, the partition (4,4,1,1) has Heinz number 196 and its conjugate (4,2,2,2) has Heinz number 189, and 196 > 189, so 196 is in the sequence, and 189 is not.

Alois P. Heinz, Table of n, a(n) for n = 1..2000
Richard Ehrenborg and Einar Steingrímsson, The Excedance Set of a Permutation, Advances in Applied Mathematics 24, (2000), 284-299.
MathOverflow, Why 'excedances' of permutations? [closed].

These partitions are counted by A000701.
The opposite version is A352487, weak A352489.
The weak version is A352488, counted by A046682.
These are the positions of positive terms in A352491.
A000041 counts integer partitions, strict A000009.
A000700 counts self-conjugate partitions, ranked by A088902 (cf. A258116).
A003963 = product of prime indices, conjugate A329382.
A056239 adds up prime indices, row sums of A112798 and A296150.
A122111 = partition conjugation using Heinz numbers, parts A321649/A321650.
A124010 gives prime signature, sorted A118914, length A001221, sum A001222.
A173018 counts permutations by excedances, weak A123125.
A330644 counts non-self-conjugate partitions, ranked by A352486.
A352521 counts compositions by subdiagonals, rank statistic A352514.
Cf. A000720, A114088, A114324, A321648, A324850, A325037, A325038, A325040.

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[100],#>Times@@Prime/@conj[primeMS[#]]&]

a(n) > A122111(a(n)).

A329382 Product of exponents of prime factors of A108951(n), where A108951 is fully multiplicative with a(prime(i)) = prime(i)# = Product_{i=1..i} A000040(i).

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 3, 4, 2, 1, 3, 1, 2, 4, 4, 1, 6, 1, 3, 4, 2, 1, 4, 8, 2, 9, 3, 1, 6, 1, 5, 4, 2, 8, 8, 1, 2, 4, 4, 1, 6, 1, 3, 9, 2, 1, 5, 16, 12, 4, 3, 1, 12, 8, 4, 4, 2, 1, 8, 1, 2, 9, 6, 8, 6, 1, 3, 4, 12, 1, 10, 1, 2, 18, 3, 16, 6, 1, 5, 16, 2, 1, 8, 8, 2, 4, 4, 1, 12, 16, 3, 4, 2, 8, 6, 1, 24, 9, 16, 1, 6, 1, 4, 18

Offset: 1

Antti Karttunen, Nov 17 2019

nonn

Also the product of parts of the conjugate of the integer partition with Heinz number n, where the Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). For example, the partition (3,2) with Heinz number 15 has conjugate (2,2,1) with product a(15) = 4. - Gus Wiseman, Mar 27 2022

Antti Karttunen, Table of n, a(n) for n = 1..10201
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537
Index entries for sequences computed from indices in prime factorization
Index entries for sequences related to primorial numbers

Cf. A000005, A005361, A019565, A034386, A108951, A284001, A331188, A329378, A329605, A329617.
This is the conjugate version of A003963 (product of prime indices).
The solutions to a(n) = A003963(n) are A325040, counted by A325039.
The Heinz number of the conjugate partition is given by A122111.
These are the row products of A321649 and of A321650.
A000700 counts self-conj partitions, ranked by A088902, complement A330644.
A008480 counts permutations of prime indices, conjugate A321648.
A056239 adds up prime indices, row sums of A112798 and of A296150.
A124010 gives prime signature, sorted A118914, sum A001222.
A238744 gives the conjugate of prime signature, rank A238745.
Cf. A000701, A000720, A001221, A046682, A175508, A290822, A303975, A316524, A324850, A352486-A352491, A353570.

Table[Times @@ FactorInteger[Times @@ Map[#1^#2 & @@ # &, FactorInteger[n] /. {p_, e_} /; e > 0 :> {Times @@ Prime@ Range@ PrimePi@ p, e}]][[All, -1]], {n, 105}] (* Michael De Vlieger, Jan 21 2020 *)

A005361(n) = factorback(factor(n)[, 2]); \\ from A005361
A034386(n) = prod(i=1, primepi(n), prime(i));
A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) };  \\ From A108951
A329382(n) = A005361(A108951(n));

A329382(n) = if(1==n,1,my(f=factor(n),e=0,m=1); forstep(i=#f~,1,-1, e += f[i,2]; m *= e^(primepi(f[i,1])-if(1==i,0,primepi(f[i-1,1])))); (m)); \\ Antti Karttunen, Jan 14 2020

a(n) = A005361(A108951(n)).
A329605(n) >= a(n) >= A329617(n) >= A329378(n).
a(A019565(n)) = A284001(n).
From Antti Karttunen, Jan 14 2020: (Start)
If n = p(k1)^e(k1) * p(k2)^e(k2) * p(k3)^e(k3) * ... * p(kx)^e(kx), with p(n) = A000040(n) and k1 > k2 > k3 > ... > kx, then a(n) = e(k1)^(k1-k2) * (e(k1)+e(k2))^(k2-k3) * (e(k1)+e(k2)+e(k3))^(k3-k4) * ... * (e(k1)+e(k2)+...+e(kx))^kx.
a(n) = A000005(A331188(n)) = A329605(A052126(n)).
(End)
a(n) = A003963(A122111(n)). - Gus Wiseman, Mar 27 2022

A352487 Excedance set of A122111. Numbers k < A122111(k), where A122111 represents partition conjugation using Heinz numbers.

Original entry on oeis.org

3, 5, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 77, 78, 79, 82, 83, 85, 86, 87, 88, 89, 91, 92, 93, 94

Offset: 1

Gus Wiseman, Mar 19 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). The sequence lists all Heinz numbers of partitions whose Heinz number is less than that of their conjugate.

			The terms together with their prime indices begin:
   3: (2)
   5: (3)
   7: (4)
  10: (3,1)
  11: (5)
  13: (6)
  14: (4,1)
  15: (3,2)
  17: (7)
  19: (8)
  21: (4,2)
  22: (5,1)
  23: (9)
  25: (3,3)
  26: (6,1)
  28: (4,1,1)
For example, the partition (4,1,1) has Heinz number 28 and its conjugate (3,1,1,1) has Heinz number 40, and 28 < 40, so 28 is in the sequence, and 40 is not.

Alois P. Heinz, Table of n, a(n) for n = 1..10000
Richard Ehrenborg and Einar Steingrímsson, The Excedance Set of a Permutation, Advances in Applied Mathematics 24, (2000), 284-299.
MathOverflow, Why 'excedances' of permutations? [closed].

These partitions are counted by A000701.
The weak version is A352489, counted by A046682.
The opposite version is A352490, weak A352488.
These are the positions of negative terms in A352491.
A000041 counts integer partitions, strict A000009.
A000700 counts self-conjugate partitions, ranked by A088902 (cf. A258116).
A003963 = product of prime indices, conjugate A329382.
A008292 is the triangle of Eulerian numbers (version without zeros).
A008480 counts permutations of prime indices, conjugate A321648.
A056239 adds up prime indices, row sums of A112798 and A296150.
A122111 = partition conjugation using Heinz numbers, parts A321649/A321650.
A124010 gives prime signature, sorted A118914, length A001221, sum A001222.
A173018 counts permutations by excedances, weak A123125.
A238744 = partition conjugate of prime signature, ranked by A238745.
A330644 counts non-self-conjugate partitions, ranked by A352486.
A352521 counts compositions by subdiagonals, rank statistic A352514.
Cf. A000720, A114088, A120383, A175508, A290822, A304360, A316524, A319005, A325040.

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[100],#

a(n) < A122111(a(n)).

A321738 Number of ways to partition the Young diagram of the integer partition with Heinz number n into vertical sections.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 5, 7, 4, 1, 10, 1, 5, 13, 15, 1, 27, 1, 17, 21, 6, 1, 37, 34, 7, 87, 26, 1, 60, 1, 52, 31, 8, 73, 114, 1, 9, 43, 77, 1, 115, 1, 37, 235, 10, 1, 151, 209, 175, 57, 50, 1, 409, 136, 141, 73, 11, 1, 295, 1, 12, 543, 203, 229, 198, 1, 65, 91

Offset: 1

Gus Wiseman, Nov 19 2018

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
A vertical section is a partial Young diagram with at most one square in each row. For example, a partition (shown as a coloring by positive integers) into vertical sections of the Young diagram of (322) is:
  1 2 3
  1 2
  2 3

			The a(12) = 10 partitions of the Young diagram of (211) into vertical sections:
  1 2   1 2   1 2   1 2   1 2   1 2   1 2   1 2   1 2   1 2
  3     3     2     3     2     1     1     3     2     1
  4     3     3     2     2     3     2     1     1     1

Cf. A000110, A000700, A000701, A006052, A056239, A122111, A320328, A321719-A321731, A321737, A321854.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
spsu[,{}]:={{}};spsu[foo,set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@spsu[Select[foo,Complement[#,Complement[set,s]]=={}&],Complement[set,s]]]/@Cases[foo,{i,_}];
ptnpos[y_]:=Position[Table[1,{#}]&/@y,1];
ptnverts[y_]:=Select[Rest[Subsets[ptnpos[y]]],UnsameQ@@First/@#&];
Table[With[{y=Reverse[primeMS[n]]},Length[spsu[ptnverts[y],ptnpos[y]]]],{n,30}]

A352488 Weak nonexcedance set of A122111. Numbers k >= A122111(k), where A122111 represents partition conjugation using Heinz numbers.

Original entry on oeis.org

1, 2, 4, 6, 8, 9, 12, 16, 18, 20, 24, 27, 30, 32, 36, 40, 48, 50, 54, 56, 60, 64, 72, 75, 80, 81, 84, 90, 96, 100, 108, 112, 120, 125, 128, 135, 140, 144, 150, 160, 162, 168, 176, 180, 192, 196, 200, 210, 216, 224, 225, 240, 243, 250, 252, 256, 264, 270, 280

Offset: 1

Gus Wiseman, Mar 20 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). The sequence lists all Heinz numbers of partitions whose Heinz number is greater than or equal to that of their conjugate.

			The terms together with their prime indices begin:
    1: ()
    2: (1)
    4: (1,1)
    6: (2,1)
    8: (1,1,1)
    9: (2,2)
   12: (2,1,1)
   16: (1,1,1,1)
   18: (2,2,1)
   20: (3,1,1)
   24: (2,1,1,1)
   27: (2,2,2)
   30: (3,2,1)
   32: (1,1,1,1,1)
   36: (2,2,1,1)
   40: (3,1,1,1)
   48: (2,1,1,1,1)
   50: (3,3,1)
   54: (2,2,2,1)
   56: (4,1,1,1)

Alois P. Heinz, Table of n, a(n) for n = 1..2000
Richard Ehrenborg and Einar Steingrímsson, The Excedance Set of a Permutation, Advances in Applied Mathematics 24, (2000), 284-299.
MathOverflow, Why 'excedances' of permutations? [closed].

These partitions are counted by A046682.
The opposite version is A352489, strong A352487.
The strong version is A352490, counted by A000701.
These are the positions of nonnegative terms in A352491.
A000041 counts integer partitions, strict A000009.
A000700 counts self-conjugate partitions, ranked by A088902 (cf. A258116).
A003963 = product of prime indices, conjugate A329382.
A008292 is the triangle of Eulerian numbers (version without zeros).
A008480 counts permutations of prime indices, conjugate A321648.
A056239 adds up prime indices, row sums of A112798 and A296150.
A122111 = partition conjugation using Heinz numbers, parts A321649/A321650.
A124010 gives prime signature, sorted A118914, length A001221, sum A001222.
A173018 counts permutations by excedances, weak A123125.
A330644 counts non-self-conjugate partitions, ranked by A352486.
A352525 counts compositions by weak superdiagonals, rank statistic A352517.
Cf. A000720, A045931, A114088, A120383, A175508, A290822, A319005, A325040, A325698, A347450.

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[100],#>=Times@@Prime/@conj[primeMS[#]]&]

a(n) >= A122111(a(n)).

cp's OEIS Frontend

A330644 Number of non-self-conjugate partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

A352486 Heinz numbers of non-self-conjugate integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A053253 Coefficients of the '3rd-order' mock theta function omega(q).

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A352491 n minus the Heinz number of the conjugate of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A352833 Irregular triangle read by rows where T(n,k) is the number of integer partitions of n with k fixed points, k = 0, 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A352490 Nonexcedance set of A122111. Numbers k > A122111(k), where A122111 represents partition conjugation using Heinz numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A329382 Product of exponents of prime factors of A108951(n), where A108951 is fully multiplicative with a(prime(i)) = prime(i)# = Product_{i=1..i} A000040(i).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A352487 Excedance set of A122111. Numbers k < A122111(k), where A122111 represents partition conjugation using Heinz numbers.

Views

Author

Keywords

Comments

Examples