A047993 -id:A047993 - cp's OEIS frontend

A326837 Heinz numbers of integer partitions whose length and maximum both divide their sum.

2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 30, 31, 32, 37, 41, 43, 47, 49, 53, 59, 61, 64, 67, 71, 73, 79, 81, 83, 84, 89, 97, 101, 103, 107, 109, 113, 121, 125, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197

Offset: 1

Gus Wiseman, Jul 26 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

The enumeration of these partitions by sum is given by A326843.

			The sequence of terms together with their prime indices begins:
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   11: {5}
   13: {6}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   23: {9}
   25: {3,3}
   27: {2,2,2}
   29: {10}
   30: {1,2,3}
   31: {11}
   32: {1,1,1,1,1}
   37: {12}

R. J. Mathar, Table of n, a(n) for n = 1..505

The non-constant case is A326838.
The strict case is A326851.
Cf. A001222, A047993, A056239, A061395, A067538, A112798, A316413, A326836, A326843, A326847, A326848.

isA326837 := proc(n)
    psigsu := A056239(n) ;
    psigma := A061395(n) ;
    psigle := numtheory[bigomega](n) ;
    if modp(psigsu,psigma) = 0 and modp(psigsu,psigle) = 0 then
        true;
    else
        false;
    end if;
end proc:
n := 1:
for i from 2 to 3000 do
    if isA326837(i) then
        printf("%d %d\n",n,i);
        n := n+1 ;
    end if;
end do: # R. J. Mathar, Aug 09 2019

Select[Range[2,100],With[{y=Flatten[Cases[FactorInteger[#],{p_,k_}:>Table[PrimePi[p],{k}]]]},Divisible[Total[y],Max[y]]&&Divisible[Total[y],Length[y]]]&]

A340596 Number of co-balanced factorizations of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 4, 1, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 4, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 5, 1, 1, 2, 2, 1, 1, 1, 4, 1, 1, 1, 4, 1, 1, 1, 3, 1, 4, 1, 2, 1, 1, 1, 5, 1, 2, 2, 4, 1, 1, 1, 3, 1, 1, 1, 5, 1, 1, 1, 4, 1, 1, 1, 2, 2, 1, 1, 8

Offset: 1

Gus Wiseman, Jan 15 2021

nonn

We define a factorization of n into factors > 1 to be co-balanced if it has exactly A001221(n) factors.

			The a(n) co-balanced factorizations for n = 12, 24, 36, 72, 120, 144, 180:
  2*6    3*8     4*9     8*9     3*5*8     2*72     4*5*9
  3*4    4*6     6*6     2*36    4*5*6     3*48     5*6*6
         2*12    2*18    3*24    2*2*30    4*36     2*2*45
                 3*12    4*18    2*3*20    6*24     2*3*30
                         6*12    2*4*15    8*18     2*5*18
                                 2*5*12    9*16     2*6*15
                                 2*6*10    12*12    2*9*10
                                 3*4*10             3*3*20
                                                    3*4*15
                                                    3*5*12
                                                    3*6*10

Antti Karttunen, Table of n, a(n) for n = 1..65537

Positions of terms > 1 are A126706.
Positions of 1's are A303554.
The version for unlabeled multiset partitions is A319616.
The alt-balanced version is A340599.
The balanced version is A340653.
The cross-balanced version is A340654.
The twice-balanced version is A340655.
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
Other balance-related sequences:
- A010054 counts balanced strict partitions.
- A047993 counts balanced partitions.
- A098124 counts balanced compositions.
- A106529 lists Heinz numbers of balanced partitions.
- A340597 lists numbers with an alt-balanced factorization.
- A340598 counts balanced set partitions.
- A340600 counts unlabeled balanced multiset partitions.
Cf. A003963, A006141, A050320, A112798, A117409, A324518, A339846, A339890, A340607, A340656, A340657.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],Length[#]==PrimeNu[n]&]],{n,100}]

A340596(n, m=n, om=omega(n)) = if(1==n,(0==om), sumdiv(n, d, if((d>1)&&(d<=m), A340596(n/d, d, om-1)))); \\ Antti Karttunen, Jun 10 2024

Data section extended up to a(120) by Antti Karttunen, Jun 10 2024

A039900 Number of partitions satisfying 0 < cn(0,5) + cn(1,5) + cn(4,5).

Original entry on oeis.org

0, 1, 1, 2, 4, 6, 9, 13, 19, 27, 38, 52, 71, 95, 127, 167, 220, 285, 370, 474, 607, 770, 976, 1226, 1540, 1920, 2391, 2960, 3660, 4501, 5529, 6760, 8254, 10038, 12190, 14750, 17825, 21470, 25825, 30975, 37101, 44322, 52879, 62937, 74811, 88733, 105110, 124261

Offset: 0

Olivier Gérard

nonn

For a given partition cn(i,n) means the number of its parts equal to i modulo n.
Short: o < 0 + 1 + 4 (OMZAAp).
Number of partitions of n such that (greatest part) >= (multiplicity of greatest part), for n >= 1.  For example, a(6) counts these 9 partitions:  6, 51, 42, 411, 33, 321, 3111, 22111, 21111.  See the Mathematica program at A240057 for the sequence as a count of these partitions, along with counts of related partitions.  - Clark Kimberling, Apr 02 2014
The Heinz numbers of these integer partitions are given by A324561. - Gus Wiseman, Mar 09 2019
From Gus Wiseman, Mar 09 2019: (Start)
Also the number of integer partitions of n whose minimum part is less than or equal to the number of parts. The Heinz numbers of these integer partitions are given by A324560. For example, the a(1) = 1 through a(7) = 13 integer partitions are:
  (1)  (11)  (21)   (22)    (32)     (42)      (52)
             (111)  (31)    (41)     (51)      (61)
                    (211)   (221)    (222)     (322)
                    (1111)  (311)    (321)     (331)
                            (2111)   (411)     (421)
                            (11111)  (2211)    (511)
                                     (3111)    (2221)
                                     (21111)   (3211)
                                     (111111)  (4111)
                                               (22111)
                                               (31111)
                                               (211111)
                                               (1111111)
(End)

			From _Gus Wiseman_, Mar 09 2019: (Start)
The a(1) = 1 through a(7) = 13 integer partitions with at least one part equal to 0, 1, or 4 modulo 5:
  (1)  (11)  (21)   (4)     (5)      (6)       (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (311)    (321)     (331)
                            (2111)   (411)     (421)
                            (11111)  (2211)    (511)
                                     (3111)    (2221)
                                     (21111)   (3211)
                                     (111111)  (4111)
                                               (22111)
                                               (31111)
                                               (211111)
                                               (1111111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..10000

Cf. A003106, A003114, A039899.
Cf. A003114, A006141, A047993, A064174, A117144.
Cf. A324518, A324520, A324522, A324560, A324561.

b:= proc(n, i, t) option remember; `if`(n=0, t,
      `if`(i<1, 0, b(n, i-1, t)+ `if`(i>n, 0, b(n-i, i,
      `if`(irem(i, 5) in {2, 3}, t, 1)))))
    end:
a:= n-> b(n$2, 0):
seq(a(n), n=0..50);  # Alois P. Heinz, Apr 03 2014

Table[Count[IntegerPartitions[n], p_ /; Min[p] <= Length[p]], {n, 40}] (* Clark Kimberling, Feb 13 2014 *)
b[n_, i_, t_] := b[n, i, t] = If[n==0, t, If[i<1, 0, b[n, i-1, t] + If[i > n, 0, b[n-i, i, If[MemberQ[{2, 3}, Mod[i, 5]], t, 1]]]]]; a[n_] := b[n, n, 0]; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Nov 16 2015, after Alois P. Heinz *)

my(N=66, x='x+O('x^N)); concat(0, Vec(sum(k=0, N, x^k*(1-x^k^2)/prod(j=1, k, 1-x^j)))) \\ Seiichi Manyama, Jan 13 2022

G.f.: Sum_{k>=0} x^k * (1-x^(k^2)) / Product_{j=1..k} (1-x^j). - Seiichi Manyama, Jan 13 2022

a(n) = A000041(n) - A003106(n). - Vaclav Kotesovec, Oct 20 2024

A340604 Heinz numbers of integer partitions of odd positive rank.

Original entry on oeis.org

3, 7, 10, 13, 15, 19, 22, 25, 28, 29, 33, 34, 37, 42, 43, 46, 51, 52, 53, 55, 61, 62, 63, 69, 70, 71, 76, 77, 78, 79, 82, 85, 88, 89, 93, 94, 98, 101, 105, 107, 113, 114, 115, 116, 117, 118, 119, 121, 123, 130, 131, 132, 134, 136, 139, 141, 146, 147, 148, 151

Offset: 1

Gus Wiseman, Jan 21 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its number of parts. The rank of an empty partition is 0.

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 of partitions with their Heinz numbers begins:
      3: (2)         46: (9,1)       82: (13,1)
      7: (4)         51: (7,2)       85: (7,3)
     10: (3,1)       52: (6,1,1)     88: (5,1,1,1)
     13: (6)         53: (16)        89: (24)
     15: (3,2)       55: (5,3)       93: (11,2)
     19: (8)         61: (18)        94: (15,1)
     22: (5,1)       62: (11,1)      98: (4,4,1)
     25: (3,3)       63: (4,2,2)    101: (26)
     28: (4,1,1)     69: (9,2)      105: (4,3,2)
     29: (10)        70: (4,3,1)    107: (28)
     33: (5,2)       71: (20)       113: (30)
     34: (7,1)       76: (8,1,1)    114: (8,2,1)
     37: (12)        77: (5,4)      115: (9,3)
     42: (4,2,1)     78: (6,2,1)    116: (10,1,1)
     43: (14)        79: (22)       117: (6,2,2)

FindStat, St000145: The Dyson rank of a partition

Note: Heinz numbers are given in parentheses below.
These partitions are counted by A101707.
Allowing negative ranks gives A340692, counted by A340603.
The even version is A340605, counted by A101708.
The not necessarily odd case is A340787, counted by A064173.
A001222 gives number of prime indices.
A061395 gives maximum prime index.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A064173 counts partitions of negative rank (A340788).
A064174 counts partitions of nonnegative rank (A324562).
A064174 (also) counts partitions of nonpositive rank (A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts (A066208).
A027193 counts partitions of odd length (A026424).
A027193 (also) counts partitions of odd maximum (A244991).
A058695 counts partitions of odd numbers (A300063).
A067659 counts strict partitions of odd length (A030059).
A160786 counts odd-length partitions of odd numbers (A300272).
A339890 counts factorizations of odd length.
A340101 counts factorizations into odd factors.
A340102 counts odd-length factorizations into odd factors.
A340385 counts partitions of odd length and maximum (A340386).
Cf. A001221, A006141, A056239, A112798, A168659, A200750, A316413, A325134, A340601, A340602, A340608, A340609, A340610.

rk[n_]:=PrimePi[FactorInteger[n][[-1,1]]]-PrimeOmega[n];
Select[Range[100],OddQ[rk[#]]&&rk[#]>0&]

A061395(a(n)) - A001222(a(n)) is odd and positive.

A340604 \/ A340605 = A340787.

A340610 Numbers whose number of prime factors (A001222) divides their greatest prime index (A061395).

Original entry on oeis.org

2, 3, 5, 6, 7, 9, 11, 13, 14, 17, 19, 20, 21, 23, 26, 29, 30, 31, 35, 37, 38, 39, 41, 43, 45, 47, 49, 50, 52, 53, 56, 57, 58, 59, 61, 65, 67, 71, 73, 74, 75, 78, 79, 83, 84, 86, 87, 89, 91, 92, 95, 97, 101, 103, 106, 107, 109, 111, 113, 117, 122, 125, 126, 127

Offset: 1

Gus Wiseman, Jan 27 2021

nonn

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 sequence of terms together with their prime indices begins:
     2: {1}        29: {10}       56: {1,1,1,4}
     3: {2}        30: {1,2,3}    57: {2,8}
     5: {3}        31: {11}       58: {1,10}
     6: {1,2}      35: {3,4}      59: {17}
     7: {4}        37: {12}       61: {18}
     9: {2,2}      38: {1,8}      65: {3,6}
    11: {5}        39: {2,6}      67: {19}
    13: {6}        41: {13}       71: {20}
    14: {1,4}      43: {14}       73: {21}
    17: {7}        45: {2,2,3}    74: {1,12}
    19: {8}        47: {15}       75: {2,3,3}
    20: {1,1,3}    49: {4,4}      78: {1,2,6}
    21: {2,4}      50: {1,3,3}    79: {22}
    23: {9}        52: {1,1,6}    83: {23}
    26: {1,6}      53: {16}       84: {1,1,2,4}

Robert Israel, Table of n, a(n) for n = 1..10000

Note: Heinz numbers are given in parentheses below.
The case of equality is A047993 (A106529).
The case where all parts are multiples, not just the maximum part, is A143773 (A316428), with strict case A340830, while the case of factorizations is A340853.
These are the Heinz numbers of certain partitions counted by A168659.
The reciprocal version is A340609.
The squarefree case is A340828 (A340856).
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A056239 adds up prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413).
A067538 counts partitions whose maximum divides their sum (A326836).
A112798 lists the prime indices of each positive integer.
A200750 counts partitions with length coprime to maximum (A340608).
A325134 = A001222 + A061395.
A326845 = A056239 * A061395.
Cf. A244990/A244991, A326837, A326849 (A326848), A340653, A340691, A340693 (A340606), A340787/A340788.

filter:= proc(n) local F,m,g,t;
  F:= ifactors(n)[2];
  m:= add(t[2],t=F);
  g:= numtheory:-pi(max(seq(t[1],t=F)));
  g mod m = 0;
end proc:
select(filter, [$2..1000]); # Robert Israel, Feb 08 2021

Select[Range[2,100],Divisible[PrimePi[FactorInteger[#][[-1,1]]],PrimeOmega[#]]&]

A001222(a(n)) divides A061395(a(n)).

A063995 Irregular triangle read by rows: T(n,k), n >= 1, -(n-1) <= k <= n-1, = number of partitions of n with rank k.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 2, 1, 2, 1, 1, 0, 1, 1, 0, 1, 1, 2, 1, 3, 1, 2, 1, 1, 0, 1, 1, 0, 1, 1, 2, 2, 3, 2, 3, 2, 2, 1, 1, 0, 1, 1, 0, 1, 1, 2, 2, 3, 3, 4, 3, 3, 2, 2, 1, 1, 0, 1, 1, 0, 1, 1, 2, 2, 4, 3, 5, 4, 5, 3, 4, 2, 2, 1, 1, 0, 1, 1, 0, 1, 1, 2

Offset: 1

N. J. A. Sloane, Sep 19 2001

The rank of a partition is the largest part minus the number of parts.

The rows are symmetric: for every partition of rank r there is its conjugate with rank -r. [Joerg Arndt, Oct 07 2012]

			The partition 5 = 4+1 has largest summand 4 and 2 summands, hence has rank 4-2 = 2.
Triangle begins:
[ 1]                               1,
[ 2]                            1, 0, 1,
[ 3]                         1, 0, 1, 0, 1,
[ 4]                      1, 0, 1, 1, 1, 0, 1,
[ 5]                   1, 0, 1, 1, 1, 1, 1, 0, 1,
[ 6]                1, 0, 1, 1, 2, 1, 2, 1, 1, 0, 1,
[ 7]             1, 0, 1, 1, 2, 1, 3, 1, 2, 1, 1, 0, 1,
[ 8]          1, 0, 1, 1, 2, 2, 3, 2, 3, 2, 2, 1, 1, 0, 1,
[ 9]       1, 0, 1, 1, 2, 2, 3, 3, 4, 3, 3, 2, 2, 1, 1, 0, 1,
[10]    1, 0, 1, 1, 2, 2, 4, 3, 5, 4, 5, 3, 4, 2, 2, 1, 1, 0, 1,
[11] 1, 0, 1, 1, 2, ...
Row 20 is:
T(20, k) = 1, 0, 1, 1, 2, 2, 4, 4, 7, 8, 12, 14, 20, 22, 30, 33, 40, 42, 48, 45, 48, 42, 40, 33, 30, 22, 20, 14, 12, 8, 7, 4, 4, 2, 2, 1, 1, 0, 1; -19 <= k <= 19.
Another view of the table of p(n,m) = number of partitions of n with rank m, taken from Dyson (1969):
n\m -6 -5  -4  -3  -2  -1   0   1   2   3   4   5   6
-----------------------------------------------------
0   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
1   0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  0,  0,  0,
2   0,  0,  0,  0,  0,  1,  0,  1,  0,  0,  0,  0,  0,
3   0,  0,  0,  0,  1,  0,  1,  0,  1,  0,  0,  0,  0,
4   0,  0,  0,  1,  0,  1,  1,  1,  0,  1,  0,  0,  0,
5   0,  0,  1,  0,  1,  1,  1,  1,  1,  0,  1,  0,  0,
6   0,  1,  0,  1,  1,  2,  1,  2,  1,  1,  0,  1,  0,
7   1,  0,  1,  1,  2,  1,  3,  1,  2,  1,  1,  0,  1,
...
The central triangle is the present sequence, the right-hand triangle is A105806. - _N. J. A. Sloane_, Jan 23 2020

Alois P. Heinz, Rows n = 1..145, flattened (first 72 rows from Reinhard Zumkeller)
G. E. Andrews, The number of smallest parts in the partitions of n. [Also Selected Works, p. 603, see N(m,n).] - _N. J. A. Sloane_, Dec 16 2013
A. O. L. Atkin and P. Swinnerton-Dyer, Some properties of partitions, Proc. London Math. Soc. (3) 4, (1954). 84-106. Math. Rev. 15,685d.
Alexander Berkovich and Frank G. Garvan, Some observations on Dyson's new symmetries of partitions, Journal of Combinatorial Theory, Series A 100.1 (2002): 61-93.
Freeman J. Dyson, A new symmetry of partitions, Journal of Combinatorial Theory 7.1 (1969): 56-61. See Table 1.
Freeman J. Dyson, Mappings and symmetries of partitions, J. Combin. Theory Ser. A 51 (1989), 169-180.

For the number of partitions of n with rank 0 (balanced partitions) see A047993.
Cf. A105806 (right half of triangle), A005408 (row lengths), A000041 (row sums), A047993 (central terms).
Cf. A000025.

import Data.List (sort, group)
a063995 n k = a063995_tabf !! (n-1) !! (n-1+k)
a063995_row n = a063995_tabf !! (n-1)
a063995_tabf = [[1], [1, 0, 1]] ++ (map
   (\rs -> [1, 0] ++ (init $ tail $ rs) ++ [0, 1]) $ drop 2 $ map
   (map length . group . sort . map rank) $ tail pss) where
      rank ps = maximum ps - length ps
      pss = [] : map (\u -> [u] : [v : ps | v <- [1..u],
                             ps <- pss !! (u - v), v <= head ps]) [1..]
-- Reinhard Zumkeller, Jul 24 2013

Table[ Count[ (First[ # ]-Length[ # ]& /@ IntegerPartitions[ k ]), # ]& /@ Range[ -k+1, k-1 ], {k, 16} ]

Sum_{k=-(n-1)..n-1} (-1)^k * T(n,k) = A000025(n). - Alois P. Heinz, Dec 20 2024

More terms from Vladeta Jovovic and Wouter Meeussen, Sep 19 2001

A348551 Heinz numbers of integer partitions whose mean is not an integer.

Original entry on oeis.org

1, 6, 12, 14, 15, 18, 20, 24, 26, 33, 35, 36, 38, 40, 42, 44, 45, 48, 50, 51, 52, 54, 56, 58, 60, 63, 65, 66, 69, 70, 72, 74, 75, 76, 77, 80, 86, 92, 93, 95, 96, 102, 104, 106, 108, 112, 114, 117, 119, 120, 122, 123, 124, 126, 130, 132, 135, 136, 140, 141, 142

Offset: 1

Gus Wiseman, Nov 14 2021

nonn

Equivalently, partitions whose length does not divide their sum.

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:
   1: {}
   6: {1,2}
  12: {1,1,2}
  14: {1,4}
  15: {2,3}
  18: {1,2,2}
  20: {1,1,3}
  24: {1,1,1,2}
  26: {1,6}
  33: {2,5}
  35: {3,4}
  36: {1,1,2,2}
  38: {1,8}
  40: {1,1,1,3}
  42: {1,2,4}
  44: {1,1,5}
  45: {2,2,3}
  48: {1,1,1,1,2}

A version counting nonempty subsets is A000079 - A051293.
A version counting factorizations is A001055 - A326622.
A version counting compositions is A011782 - A271654.
A version for prime factors is A175352, complement A078175.
A version for distinct prime factors A176587, complement A078174.
The complement is A316413, counted by A067538, strict A102627.
The geometric version is the complement of A326623.
The conjugate version is the complement of A326836.
These partitions are counted by A349156.
A000041 counts partitions.
A001222 counts prime factors with multiplicity.
A018818 counts partitions into divisors, ranked by A326841.
A143773 counts partitions into multiples of the length, ranked by A316428.
A236634 counts unbalanced partitions.
A047993 counts balanced partitions, ranked by A106529.
A056239 adds up prime indices, row sums of A112798.
A326567/A326568 gives the mean of prime indices, conjugate A326839/A326840.
A327472 counts partitions not containing their mean, complement A237984.
Cf. A067539, A096199, A098743, A175397, A175761, A289508, A289509, A290103, A326028, A326645, A326837.

q:= n-> (l-> nops(l)=0 or irem(add(i, i=l), nops(l))>0)(map
        (i-> numtheory[pi](i[1])$i[2], ifactors(n)[2])):
select(q, [$1..142])[];  # Alois P. Heinz, Nov 19 2021

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!IntegerQ[Mean[primeMS[#]]]&]

A340601 Number of integer partitions of n of even rank.

Original entry on oeis.org

1, 1, 0, 3, 1, 5, 3, 11, 8, 18, 16, 34, 33, 57, 59, 98, 105, 159, 179, 262, 297, 414, 478, 653, 761, 1008, 1184, 1544, 1818, 2327, 2750, 3480, 4113, 5137, 6078, 7527, 8899, 10917, 12897, 15715, 18538, 22431, 26430, 31805, 37403, 44766, 52556, 62620, 73379

Offset: 0

Gus Wiseman, Jan 21 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its number of parts. For this sequence, the rank of an empty partition is 0.

			The a(1) = 1 through a(9) = 18 partitions (empty column indicated by dot):
  (1)  .  (3)    (22)  (5)      (42)    (7)        (44)      (9)
          (21)         (41)     (321)   (43)       (62)      (63)
          (111)        (311)    (2211)  (61)       (332)     (81)
                       (2111)           (322)      (521)     (333)
                       (11111)          (331)      (2222)    (522)
                                        (511)      (4211)    (531)
                                        (2221)     (32111)   (711)
                                        (4111)     (221111)  (4221)
                                        (31111)              (4311)
                                        (211111)             (6111)
                                        (1111111)            (32211)
                                                             (33111)
                                                             (51111)
                                                             (222111)
                                                             (411111)
                                                             (3111111)
                                                             (21111111)
                                                             (111111111)

Alois P. Heinz, Table of n, a(n) for n = 0..10000
Freeman J. Dyson, A new symmetry of partitions, Journal of Combinatorial Theory 7.1 (1969): 56-61.
FindStat, St000145: The Dyson rank of a partition

Note: Heinz numbers are given in parentheses below.
The positive case is A101708 (A340605).
The Heinz numbers of these partitions are A340602.
The odd version is A340692 (A340603).
- Rank -
A047993 counts partitions of rank 0 (A106529).
A072233 counts partitions by sum and length.
A101198 counts partitions of rank 1 (A325233).
A101707 counts partitions of odd positive rank (A340604).
A101708 counts partitions of even positive rank (A340605).
A257541 gives the rank of the partition with Heinz number n.
A340653 counts factorizations of rank 0.
- Even -
A024430 counts set partitions of even length.
A027187 counts partitions of even length (A028260).
A027187 (also) counts partitions of even maximum (A244990).
A034008 counts compositions of even length.
A035363 counts partitions into even parts (A066207).
A052841 counts ordered set partitions of even length.
A058696 counts partitions of even numbers (A300061).
A067661 counts strict partitions of even length (A030229).
A236913 counts even-length partitions of even numbers (A340784).
A339846 counts factorizations of even length.
Cf. A000041, A006141, A039900, A064174, A067538, A117409, A200750, A324516.

b:= proc(n, i, r) option remember; `if`(n=0, 1-max(0, r),
      `if`(i<1, 0, b(n, i-1, r) +b(n-i, min(n-i, i), 1-
      `if`(r<0, irem(i, 2), r))))
    end:
a:= n-> b(n$2, -1):
seq(a(n), n=0..55);  # Alois P. Heinz, Jan 22 2021

Table[If[n==0,1,Length[Select[IntegerPartitions[n],EvenQ[Max[#]-Length[#]]&]]],{n,0,30}]
(* Second program: *)
b[n_, i_, r_] := b[n, i, r] = If[n == 0, 1 - Max[0, r], If[i < 1, 0, b[n, i - 1, r] + b[n - i, Min[n - i, i], 1 - If[r < 0, Mod[i, 2], r]]]];
a[n_] := b[n, n, -1];
a /@ Range[0, 55] (* Jean-François Alcover, May 10 2021, after Alois P. Heinz *)

p_q(k) = {prod(j=1, k, 1-q^j); }
GB_q(N, M)= {if(N>=0 && M>=0,  p_q(N+M)/(p_q(M)*p_q(N)), 0 ); }
A_q(N) = {my(q='q+O('q^N), g=1+sum(i=1,N, sum(j=1,N/i, q^(i*j) * ( ((1/2)*(1+(-1)^(i+j))) + sum(k=1,N-(i*j), ((q^k)*GB_q(k,i-2)) * ((1/2)*(1+(-1)^(i+j+k)))))))); Vec(g)}
A_q(50) \\ John Tyler Rascoe, Apr 15 2024

G.f.: 1 + Sum_{i, j>0} q^(i*j) * ( (1+(-1)^(i+j))/2 + Sum_{k>0} q^k * q_binomial(k,i-2) * (1+(-1)^(i+j+k))/2 ). - John Tyler Rascoe, Apr 15 2024

a(n) ~ exp(Pi*sqrt(2*n/3)) / (8*n*sqrt(3)). - Vaclav Kotesovec, Apr 17 2024

A349157 Heinz numbers of integer partitions where the number of even parts is equal to the number of odd conjugate parts.

Original entry on oeis.org

1, 4, 6, 15, 16, 21, 24, 25, 35, 60, 64, 77, 84, 90, 91, 96, 100, 121, 126, 140, 143, 150, 210, 221, 240, 247, 256, 289, 297, 308, 323, 336, 351, 360, 364, 375, 384, 400, 437, 462, 484, 490, 495, 504, 525, 529, 546, 551, 560, 572, 585, 600, 625, 667, 686, 726

Offset: 1

Gus Wiseman, Jan 21 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers with the same number of even prime indices as odd conjugate prime indices.

These are also partitions for which the number of even parts is equal to the positive alternating sum of the parts.

			The terms and their prime indices begin:
    1: ()
    4: (1,1)
    6: (2,1)
   15: (3,2)
   16: (1,1,1,1)
   21: (4,2)
   24: (2,1,1,1)
   25: (3,3)
   35: (4,3)
   60: (3,2,1,1)
   64: (1,1,1,1,1,1)
   77: (5,4)
   84: (4,2,1,1)
   90: (3,2,2,1)
   91: (6,4)
   96: (2,1,1,1,1,1)

A subset of A028260 (even bigomega), counted by A027187.
These partitions are counted by A277579.
This is the half-conjugate version of A325698, counted by A045931.
A000041 counts partitions, strict A000009.
A047993 counts balanced partitions, ranked by A106529.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A100824 counts partitions with at most one odd part, ranked by A349150.
A108950/A108949 count partitions with more odd/even parts.
A122111 represents conjugation using Heinz numbers.
A130780/A171966 count partitions with more or equal odd/even parts.
A257991/A257992 count odd/even prime indices.
A316524 gives the alternating sum of prime indices (reverse: A344616).
Cf. A000700, A000712, A035363, A066207, A066208, A097613, A215366, A239241, A240009, A241638, A316523, A325700, A340604.

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],Count[primeMS[#],?EvenQ]==Count[conj[primeMS[#]],?OddQ]&]

A257992(a(n)) = A257991(A122111(a(n))).

A384177 Number of subsets of {1..n} with all distinct lengths of maximal anti-runs (increasing by more than 1).

Original entry on oeis.org

1, 2, 3, 5, 10, 19, 35, 62, 109, 197, 364, 677, 1251, 2288, 4143, 7443, 13318, 23837, 42809, 77216, 139751, 253293, 458800, 829237, 1494169, 2683316, 4804083, 8580293, 15301324, 27270061, 48607667, 86696300, 154758265, 276453311, 494050894, 882923051

Offset: 0

Gus Wiseman, Jun 16 2025

nonn

			The subset {1,2,4,5,7,10} has maximal anti-runs ((1),(2,4),(5,7,10)), with lengths (1,2,3), so is counted under a(10).
The a(0) = 1 through a(5) = 19 subsets:
  {}  {}   {}   {}     {}       {}
      {1}  {1}  {1}    {1}      {1}
           {2}  {2}    {2}      {2}
                {3}    {3}      {3}
                {1,3}  {4}      {4}
                       {1,3}    {5}
                       {1,4}    {1,3}
                       {2,4}    {1,4}
                       {1,2,4}  {1,5}
                       {1,3,4}  {2,4}
                                {2,5}
                                {3,5}
                                {1,2,4}
                                {1,2,5}
                                {1,3,4}
                                {1,3,5}
                                {1,4,5}
                                {2,3,5}
                                {2,4,5}

Christian Sievers, Table of n, a(n) for n = 0..1000

For runs instead of anti-runs we have A384175, complement A384176.
These subsets are ranked by A384879.
For strict partitions instead of subsets we have A384880, see A384178, A384884, A384886.
For equal instead of distinct lengths we have A384889, for runs A243815.
A034839 counts subsets by number of maximal runs, for strict partitions A116674.
A098859 counts Wilf partitions (distinct multiplicities), complement A336866.
A384893 counts subsets by number of maximal anti-runs, for partitions A268193, A384905.
Cf. A000009, A010027, A044813, A047993, A106529, A123513, A242882, A325325, A328592, A329739, A351202, A384890.

Table[Length[Select[Subsets[Range[n]],UnsameQ@@Length/@Split[#,#2!=#1+1&]&]],{n,0,10}]

lista(n)={my(o=(1-x^(n+1))/(1-x)*O(y*y^n),p=prod(i=1,(n+1)\2,1+o+x*y^(2*i-1)/(1-y)^(i-1)));p=subst(serlaplace(p),x,1);Vec((p-y)/(1-y)^2)} \\ Christian Sievers, Jun 18 2025

a(21) and beyond from Christian Sievers, Jun 18 2025

cp's OEIS Frontend

A326837 Heinz numbers of integer partitions whose length and maximum both divide their sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A340596 Number of co-balanced factorizations of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A039900 Number of partitions satisfying 0 < cn(0,5) + cn(1,5) + cn(4,5).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A340604 Heinz numbers of integer partitions of odd positive rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A340610 Numbers whose number of prime factors (A001222) divides their greatest prime index (A061395).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A063995 Irregular triangle read by rows: T(n,k), n >= 1, -(n-1) <= k <= n-1, = number of partitions of n with rank k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

Formula

Extensions

A348551 Heinz numbers of integer partitions whose mean is not an integer.

Views

Author

Keywords

Comments

Examples

Crossrefs