A008289 -id:A008289 - cp's OEIS frontend

A363725 Number of integer partitions of n with a different mean, median, and mode, assuming there is a unique mode.

0, 0, 0, 0, 0, 0, 0, 1, 1, 3, 3, 8, 8, 17, 19, 28, 39, 59, 68, 106, 123, 165, 220, 301, 361, 477, 605, 745, 929, 1245, 1456, 1932, 2328, 2846, 3590, 4292, 5111, 6665, 8040, 9607, 11532, 14410, 16699, 20894, 24287, 28706, 35745, 42845, 49548, 59963, 70985

Offset: 0

Gus Wiseman, Jun 22 2023

nonn

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes of {a,a,b,b,b,c,d,d,d} are {b,d}.

			The a(7) = 1 through a(13) = 17 partitions:
  (3211)  (4211)  (3321)  (5311)    (4322)    (4431)    (4432)
                  (4311)  (6211)    (4421)    (5322)    (5422)
                  (5211)  (322111)  (5411)    (6411)    (5521)
                                    (6311)    (7311)    (6322)
                                    (7211)    (8211)    (6511)
                                    (43211)   (53211)   (7411)
                                    (332111)  (432111)  (8311)
                                    (422111)  (522111)  (9211)
                                                        (54211)
                                                        (63211)
                                                        (333211)
                                                        (433111)
                                                        (442111)
                                                        (532111)
                                                        (622111)
                                                        (3322111)
                                                        (32221111)

The length-4 case appears to be A325695.
For equal instead of unequal we have A363719, ranks A363727.
Allowing multiple modes gives A363720, ranks A363730.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length (or decreasing mean), strict A008289.
A359893 and A359901 count partitions by median, odd-length A359902.
A362608 counts partitions with a unique mode.
Cf. A237984, A240219, A325347, A326567/A326568, A327472, A359894, A359896, A359900, A363723, A363728.

modes[ms_]:=Select[Union[ms],Count[ms,#]>=Max@@Length/@Split[ms]&];
Table[Length[Select[IntegerPartitions[n], Length[modes[#]]==1&&Mean[#]!=Median[#]!=First[modes[#]]&]],{n,0,30}]

A364912 Triangle read by rows where T(n,k) is the number of ways to write n as a positive linear combination of an integer partition of k.

Original entry on oeis.org

1, 0, 1, 0, 1, 2, 0, 1, 2, 3, 0, 1, 4, 4, 5, 0, 1, 4, 8, 7, 7, 0, 1, 6, 13, 17, 12, 11, 0, 1, 6, 18, 28, 30, 19, 15, 0, 1, 8, 24, 50, 58, 53, 30, 22

Offset: 0

Gus Wiseman, Aug 20 2023

A way of writing n as a positive linear combination of a finite sequence y is any sequence of pairs (k_i,y_i) such that k_i > 0 and Sum k_i*y_i = n. For example, the pairs ((3,1),(1,1),(2,2)) are a way of writing 8 as a positive linear combination of (1,1,2), namely 8 = 3*1 + 1*1 + 2*2.

			Triangle begins:
  1
  0  1
  0  1  2
  0  1  2  3
  0  1  4  4  5
  0  1  4  8  7  7
  0  1  6 13 17 12 11
  0  1  6 18 28 30 19 15
  0  1  8 24 50 58 53 30 22
Row n = 4 counts the following linear combinations:
  .  1*4  2*2      2*1+1*2      4*1
          1*1+1*3  1*1+1*1+1*2  3*1+1*1
          1*2+1*2  1*1+1*2+1*1  2*1+2*1
          1*3+1*1  1*2+1*1+1*1  2*1+1*1+1*1
                                1*1+1*1+1*1+1*1
Row n = 5 counts the following linear combinations:
  .  1*5  1*1+1*4  2*1+1*3      3*1+1*2          5*1
          1*2+1*3  2*2+1*1      2*1+1*1+1*2      4*1+1*1
          1*3+1*2  1*1+1*1+1*3  2*1+1*2+1*1      3*1+2*1
          1*4+1*1  1*1+1*2+1*2  1*1+1*1+1*1+1*2  3*1+1*1+1*1
                   1*1+1*3+1*1  1*1+1*1+1*2+1*1  2*1+2*1+1*1
                   1*2+1*1+1*2  1*1+1*2+1*1+1*1  2*1+1*1+1*1+1*1
                   1*2+1*2+1*1  1*2+1*1+1*1+1*1  1*1+1*1+1*1+1*1+1*1
                   1*3+1*1+1*1
Array begins:
  1   0   0   0    0    0    0     0
  1   1   1   1    1    1    1     1
  2   2   4   4    6    6    8     8
  3   4   8   13   18   24   33    40
  5   7   17  28   50   70   107   143
  7   12  30  58   108  179  286   428
  11  19  53  109  223  394  696   1108
  15  30  86  194  420  812  1512  2619

Steven R. Finch, Monoids of natural numbers, March 17, 2009.

Row k = 0 is A000007.
Row k = 1 is A000012.
Column n = 0 is A000041.
Column n = 1 is A000070.
Row sums are A006951.
Row k = 2 is A052928 except initial terms.
The case of strict integer partitions is A116861.
Central column is T(2n,n) = A(n,n) = A364907(n).
With rows reversed we have the nonnegative version A365004.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A364350 counts combination-free strict partitions, complement A364839.
A364913 counts combination-full partitions.
Cf. A237113, A364272, A364910, A364911, A364914, A364915, A365002.

combp[n_,y_]:=With[{s=Table[{k,i},{k,y},{i,1,Floor[n/k]}]},Select[Tuples[s],Total[Times@@@#]==n&]];
Table[Length[Join@@Table[combp[n,ptn],{ptn,IntegerPartitions[k]}]],{n,0,6},{k,0,n}]
- or -
combs[n_,y_]:=With[{s=Table[{k,i},{k,y},{i,0,Floor[n/k]}]},Select[Tuples[s],Total[Times@@@#]==n&]];
Table[Length[Join@@Table[combs[n-k,ptn],{ptn,IntegerPartitions[k]}]],{n,0,6},{k,0,n}]

As an array, also the number of ways to write n-k as a nonnegative linear combination of an integer partition of k (see programs).

A359899 Number of strict odd-length integer partitions of n whose parts have the same mean as median.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 2, 1, 1, 3, 1, 1, 4, 1, 1, 6, 1, 1, 6, 1, 5, 7, 1, 1, 8, 12, 1, 9, 2, 1, 33, 1, 1, 11, 1, 50, 12, 1, 1, 13, 70, 1, 46, 1, 1, 122, 1, 1, 16, 102, 155, 17, 1, 1, 30, 216, 258, 19, 1, 1, 310, 1, 1, 666, 1, 382, 23, 1, 1, 23, 1596, 1, 393, 1, 1

Offset: 0

Gus Wiseman, Jan 20 2023

nonn

			The a(30) = 33 partitions:
  (30)  (11,10,9)  (8,7,6,5,4)
        (12,10,8)  (9,7,6,5,3)
        (13,10,7)  (9,8,6,4,3)
        (14,10,6)  (9,8,6,5,2)
        (15,10,5)  (10,7,6,4,3)
        (16,10,4)  (10,7,6,5,2)
        (17,10,3)  (10,8,6,4,2)
        (18,10,2)  (10,8,6,5,1)
        (19,10,1)  (10,9,6,3,2)
                   (10,9,6,4,1)
                   (11,7,6,4,2)
                   (11,7,6,5,1)
                   (11,8,6,3,2)
                   (11,8,6,4,1)
                   (11,9,6,3,1)
                   (12,7,6,3,2)
                   (12,7,6,4,1)
                   (12,8,6,3,1)
                   (12,9,6,2,1)
                   (13,7,6,3,1)
                   (13,8,6,2,1)
                   (14,7,6,2,1)
                   (11,10,6,2,1)

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

Strict odd-length case of A240219, complement A359894, ranked by A359889.
Strict case of A359895, complement A359896, ranked by A359891.
Odd-length case of A359897, complement A359898.
The complement is counted by A359900.
A000041 counts partitions, strict A000009.
A008284/A058398/A327482 count partitions by mean, ranked by A326567/A326568.
A008289 counts strict partitions by mean.
A027193 counts odd-length partitions, strict A067659, ranked by A026424.
A067538 counts ptns with integer mean, strict A102627, ranked by A316413.
A237984 counts ptns containing their mean, strict A240850, ranked by A327473.
A325347 counts ptns with integer median, strict A359907, ranked by A359908.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A000016, A065795, A066571, A240851, A359903, A359906, A359910.

Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&OddQ[Length[#]]&&Mean[#]==Median[#]&]],{n,0,30}]

\\ Q(n,k,m) is g.f. for k strict parts of max size m.
Q(n,k,m)={polcoef(prod(i=1, m, 1 + y*x^i + O(x*x^n)), k, y)}
a(n)={if(n==0, 0, sumdiv(n, d, if(d%2, my(m=n/d, h=d\2, r=n-m*(h+1)); if(r>=h*(h+1), polcoef(Q(r, h, m-1)*Q(r, h, r), r)))))} \\ Andrew Howroyd, Jan 21 2023

a(p) = 1 for prime p. - Andrew Howroyd, Jan 21 2023

A364464 Number of strict integer partitions of n where no part is the difference of two consecutive parts.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 2, 4, 4, 6, 5, 8, 9, 12, 13, 16, 16, 21, 23, 29, 34, 38, 41, 49, 57, 64, 73, 86, 95, 110, 120, 135, 160, 171, 197, 219, 247, 277, 312, 342, 386, 431, 476, 527, 598, 640, 727, 796, 893, 966, 1097, 1178, 1327, 1435, 1602, 1740, 1945, 2084, 2337

Offset: 0

Gus Wiseman, Jul 30 2023

nonn

In other words, the parts are disjoint from the first differences.

			The strict partition y = (9,5,3,1) has differences (4,2,2), and these are disjoint from the parts, so y is counted under a(18).
The a(1) = 1 through a(9) = 6 strict partitions:
  (1)  (2)  (3)  (4)    (5)    (6)    (7)    (8)    (9)
                 (3,1)  (3,2)  (5,1)  (4,3)  (5,3)  (5,4)
                        (4,1)         (5,2)  (6,2)  (7,2)
                                      (6,1)  (7,1)  (8,1)
                                                    (4,3,2)
                                                    (5,3,1)

For length instead of differences we have A240861, non-strict A229816.
For all differences of pairs of elements we have A364346, for subsets A007865.
For subsets instead of strict partitions we have A364463, complement A364466.
The non-strict version is A363260.
The complement is counted by A364536, non-strict A364467.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A120641 counts strict double-free partitions, non-strict A323092.
A320347 counts strict partitions w/ distinct differences, non-strict A325325.
Cf. A002865, A025065, A236912, A237667, A275972, A363226, A364345, A364465.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Intersection[#,-Differences[#]]=={}&]],{n,0,15}]

from collections import Counter
from sympy.utilities.iterables import partitions
def A364464(n): return sum(1 for s,p in map(lambda x: (x[0],tuple(sorted(Counter(x[1]).elements()))), filter(lambda p:max(p[1].values(),default=1)==1,partitions(n,size=True))) if set(p).isdisjoint({p[i+1]-p[i] for i in range(s-1)})) # Chai Wah Wu, Sep 26 2023

A364670 Number of strict integer partitions of n with a part equal to the sum of two distinct others. A variation of sum-full strict partitions.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 3, 1, 4, 3, 7, 6, 10, 10, 14, 16, 24, 25, 34, 39, 48, 59, 71, 81, 103, 120, 136, 166, 194, 226, 260, 312, 353, 419, 473, 557, 636, 742, 824, 974, 1097, 1266, 1418, 1646, 1837, 2124, 2356, 2717, 3029, 3469, 3830, 4383, 4884, 5547

Offset: 0

Gus Wiseman, Aug 03 2023

nonn

			The a(6) = 1 through a(16) = 10 strict partitions (A = 10):
  321  .  431  .  532   5321  642   5431  743   6432   853
                  541         651   6421  752   6531   862
                  4321        5421  7321  761   7431   871
                              6321        5432  7521   6532
                                          6431  9321   6541
                                          6521  54321  7432
                                          8321         7621
                                                       8431
                                                       A321
                                                       64321

For subsets of {1..n} we have A088809, complement A085489.
The non-strict version is A237113, complement A236912.
The non-binary complement is A237667, ranks A364532.
Allowing re-used parts gives A363226, non-strict A363225.
The non-binary version is A364272, non-strict A237668.
The complement is A364533, non-binary A364349.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A108917 counts knapsack partitions, strict A275972, ranks A299702.
A323092 counts double-free partitions, ranks A320340.
Cf. A007865, A025065, A093971, A111133, A151897, A240861, A325862, A364346, A364350, A364534.

Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Intersection[#, Total/@Subsets[#,{2}]]!={}&]],{n,0,30}]

A365002 Number of ways to write n as a nonnegative linear combination of a strict integer partition.

Original entry on oeis.org

1, 1, 2, 4, 8, 10, 26, 32, 63, 84, 157, 207, 383, 477, 768, 1108, 1710, 2261, 3536, 4605, 6869, 9339, 13343, 17653, 25785, 33463, 46752, 61549, 85614, 110861, 153719, 197345, 268623, 346845, 463513, 593363, 797082, 1011403, 1335625, 1703143, 2232161, 2820539

Offset: 0

Gus Wiseman, Aug 22 2023

nonn

A way of writing n as a (nonnegative) linear combination of a finite sequence y is any sequence of pairs (k_i,y_i) such that k_i >= 0 and Sum k_i*y_i = n. For example, the pairs ((3,1),(1,1),(1,1),(0,2)) are a way of writing 5 as a linear combination of (1,1,1,2), namely 5 = 3*1 + 1*1 + 1*1 + 0*2. Of course, there are A000041(n) ways to write n as a linear combination of (1..n).

			The a(1) = 1 through a(5) = 10 ways:
  1*1  1*2  1*3      1*4      1*5
       2*1  3*1      2*2      5*1
            0*2+3*1  4*1      0*2+5*1
            1*2+1*1  0*2+4*1  0*3+5*1
                     0*3+4*1  0*4+5*1
                     1*2+2*1  1*2+3*1
                     1*3+1*1  1*3+1*2
                     2*2+0*1  1*3+2*1
                              1*4+1*1
                              2*2+1*1

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

Row sums of lower-left half of A364916 as an array.
Column sums of right half of A364916 as a triangle.
For all positive coefficients we have A000041, non-strict A006951.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A364350 counts combination-free strict partitions, complement A364839.
A364913 counts combination-full partitions.
Cf. A066328, A116861, A364272, A364907, A364910, A364911, A364912, A365004.

combs[n_,y_]:=With[{s=Table[{k,i},{k,y},{i,0,Floor[n/k]}]}, Select[Tuples[s],Total[Times@@@#]==n&]];
Table[Sum[Length[combs[n,y]], {y,Select[Join@@IntegerPartitions/@Range[n], UnsameQ@@#&]}],{n,0,15}]

from itertools import combinations
from collections import Counter
from sympy.utilities.iterables import partitions
def A365002(n):
    aset = Counter(tuple(sorted(set(p))) for p in partitions(n))
    return sum(sum(aset[t] for t in aset if set(t).issubset(set(q))) for l in range(1,n+1) for q in combinations(range(1,n+1),l) if sum(q)<=n) # Chai Wah Wu, Sep 20 2023

a(16)-a(34) from Chai Wah Wu, Sep 20 2023
a(35)-a(38) from Chai Wah Wu, Sep 21 2023
a(0)=1 and a(39)-a(41) from Alois P. Heinz, Jan 11 2024

A364466 Number of subsets of {1..n} where some element is a difference of two consecutive elements.

Original entry on oeis.org

0, 0, 1, 2, 6, 14, 34, 74, 164, 345, 734, 1523, 3161, 6488, 13302, 27104, 55150, 111823, 226443, 457586, 923721, 1862183, 3751130, 7549354, 15184291, 30521675, 61322711, 123151315, 247230601, 496158486, 995447739, 1996668494, 4004044396, 8027966324, 16092990132, 32255168125

Offset: 0

Gus Wiseman, Jul 31 2023

nonn

In other words, the elements are not disjoint from their own first differences.

			The a(0) = 0 through a(5) = 14 subsets:
  .  .  {1,2}  {1,2}    {1,2}      {1,2}
               {1,2,3}  {2,4}      {2,4}
                        {1,2,3}    {1,2,3}
                        {1,2,4}    {1,2,4}
                        {1,3,4}    {1,2,5}
                        {1,2,3,4}  {1,3,4}
                                   {1,4,5}
                                   {2,3,5}
                                   {2,4,5}
                                   {1,2,3,4}
                                   {1,2,3,5}
                                   {1,2,4,5}
                                   {1,3,4,5}
                                   {1,2,3,4,5}

For differences of all pairs we have A093971, complement A196723.
For partitions we have A363260, complement A364467.
The complement is counted by A364463.
For subset-sums instead of differences we have A364534, complement A325864.
For strict partitions we have A364536, complement A364464.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A050291 counts double-free subsets, complement A088808.
A108917 counts knapsack partitions, strict A275972.
A325325 counts partitions with all distinct differences, strict A320347.
Cf. A011782, A212986, A237113, A325877, A325878, A326083, A363225.

Table[Length[Select[Subsets[Range[n]],Intersection[#,Differences[#]]!={}&]],{n,0,10}]

from itertools import combinations
def A364466(n): return sum(1 for l in range(n+1) for c in combinations(range(1,n+1),l) if not set(c).isdisjoint({c[i+1]-c[i] for i in range(l-1)})) # Chai Wah Wu, Sep 26 2023

a(n) = 2^n - A364463(n). - Chai Wah Wu, Sep 26 2023

a(21)-a(32) from Chai Wah Wu, Sep 26 2023

a(33)-a(35) from Chai Wah Wu, Sep 27 2023

A365004 Array read by antidiagonals downwards where A(n,k) is the number of ways to write n as a nonnegative linear combination of an integer partition of k.

Original entry on oeis.org

1, 1, 0, 2, 1, 0, 3, 2, 1, 0, 5, 4, 4, 1, 0, 7, 7, 8, 4, 1, 0, 11, 12, 17, 13, 6, 1, 0, 15, 19, 30, 28, 18, 6, 1, 0, 22, 30, 53, 58, 50, 24, 8, 1, 0, 30, 45, 86, 109, 108, 70, 33, 8, 1, 0, 42, 67, 139, 194, 223, 179, 107, 40, 10, 1, 0, 56, 97, 213, 328, 420, 394, 286, 143, 50, 10, 1, 0

Offset: 0

Gus Wiseman, Aug 23 2023

A way of writing n as a (nonnegative) linear combination of a finite sequence y is any sequence of pairs (k_i,y_i) such that k_i >= 0 and Sum k_i*y_i = n. For example, the pairs ((3,1),(1,1),(1,1),(0,2)) are a way of writing 5 as a linear combination of (1,1,1,2), namely 5 = 3*1 + 1*1 + 1*1 + 0*2. Of course, there are A000041(n) ways to write n as a linear combination of (1..n).

			Array begins:
  1  1  2   3   5    7     11
  0  1  2   4   7    12    19
  0  1  4   8   17   30    53
  0  1  4   13  28   58    109
  0  1  6   18  50   108   223
  0  1  6   24  70   179   394
  0  1  8   33  107  286   696
  0  1  8   40  143  428   1108
  0  1  10  50  199  628   1754
  0  1  10  61  254  882   2622
  0  1  12  72  332  1215  3857
  0  1  12  84  410  1624  5457
  0  1  14  99  517  2142  7637
The A(4,2) = 6 ways:
  2*2
  0*1+4*1
  1*1+3*1
  2*1+2*1
  3*1+1*1
  4*1+0*1

Alois P. Heinz, Rows n = 0..200, flattened

Row n = 0 is A000041, strict A000009.
Row n = 1 is A000070.
Column k = 0 is A000007.
Column k = 1 is A000012.
Column k = 2 is A052928 except initial terms.
Antidiagonal sums are A006951.
The case of strict integer partitions is A116861.
Main diagonal is A364907.
The transpose is A364912, also the positive version.
A008284 counts partitions by length, strict A008289.
A364350 counts combination-free strict partitions, complement A364839.
A364913 counts combination-full partitions.
Cf. A066328, A108917, A237113, A364272, A364910, A364911, A364915, A365002.

b:= proc(n, i, m) option remember; `if`(n=0, `if`(m=0, 1, 0),
     `if`(i<1, 0, b(n, i-1, m)+add(b(n-i, min(i, n-i), m-i*j), j=0..m/i)))
    end:
A:= (n, k)-> b(k$2, n):
seq(seq(A(n, d-n), n=0..d), d=0..12);  # Alois P. Heinz, Jan 28 2024

nn=5;
combs[n_,y_]:=With[{s=Table[{k,i},{k,y},{i,0,Floor[n/k]}]},Select[Tuples[s],Total[Times@@@#]==n&]];
tabv=Table[Length[Join@@Table[combs[n,ptn],{ptn,IntegerPartitions[k]}]],{n,0,nn},{k,0,nn}]
Table[tabv[[k+1,n-k+1]],{n,0,nn},{k,0,n}]

Also the number of ways to write n-k as a *positive* linear combination of an integer partition of k.

Antidiagonals 8-11 from Alois P. Heinz, Jan 28 2024

A216652 Triangular array read by rows: T(n,k) is the number of compositions of n into exactly k distinct parts.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 4, 1, 4, 6, 1, 6, 6, 1, 6, 12, 1, 8, 18, 1, 8, 24, 24, 1, 10, 30, 24, 1, 10, 42, 48, 1, 12, 48, 72, 1, 12, 60, 120, 1, 14, 72, 144, 120, 1, 14, 84, 216, 120, 1, 16, 96, 264, 240, 1, 16, 114, 360, 360, 1, 18, 126, 432, 600, 1, 18, 144, 552, 840

Offset: 1

Geoffrey Critzer, Sep 12 2012

Same as A072574, with zeros dropped. [Joerg Arndt, Oct 20 2012]
Row sums = A032020.
Row n contains A003056(n) = floor((sqrt(8*n+1)-1)/2) terms (number of terms increases by one at each triangular number).

			Triangle starts:
[ 1]  1;
[ 2]  1;
[ 3]  1, 2;
[ 4]  1, 2;
[ 5]  1, 4;
[ 6]  1, 4, 6;
[ 7]  1, 6, 6;
[ 8]  1, 6, 12;
[ 9]  1, 8, 18;
[10]  1, 8, 24, 24;
[11]  1, 10, 30, 24;
[12]  1, 10, 42, 48;
[13]  1, 12, 48, 72;
[14]  1, 12, 60, 120;
[15]  1, 14, 72, 144, 120;
[16]  1, 14, 84, 216, 120;
[17]  1, 16, 96, 264, 240;
[18]  1, 16, 114, 360, 360;
[19]  1, 18, 126, 432, 600;
[20]  1, 18, 144, 552, 840;
T(5,2) = 4 because we have: 4+1, 1+4, 3+2, 2+3.

Alois P. Heinz, Rows n = 1..500, flattened
B. Richmond and A. Knopfmacher, Compositions with distinct parts, Aequationes Mathematicae 49 (1995), pp. 86-97.

Cf. A003056, A008289, A072574, A097910.

b:= proc(n, k) option remember; `if`(n<0, 0, `if`(n=0, 1,
      `if`(k<1, 0, b(n, k-1) +b(n-k, k))))
    end:
T:= (n, k)-> b(n-k*(k+1)/2, k)*k!:
seq(seq(T(n, k), k=1..floor((sqrt(8*n+1)-1)/2)), n=1..24);  # Alois P. Heinz, Sep 12 2012

nn=20;f[list_]:=Select[list,#>0&];Map[f,Drop[CoefficientList[Series[ Sum[Product[j y x^j/(1-x^j),{j,1,k}],{k,0,nn}],{x,0,nn}],{x,y}],1]]//Flatten

G.f.: Sum_{i>=0} Product_{j=1..i} y*j*x^j/(1-x^j).

T(n,k) = A008289(n,k)*k!.

A340828 Number of strict integer partitions of n whose maximum part is a multiple of their length.

Original entry on oeis.org

1, 1, 2, 1, 2, 3, 3, 2, 4, 5, 6, 6, 7, 8, 11, 10, 13, 17, 18, 21, 24, 27, 30, 35, 39, 46, 53, 61, 68, 79, 87, 97, 110, 123, 139, 157, 175, 196, 222, 247, 278, 312, 347, 385, 433, 476, 531, 586, 651, 720, 800, 883, 979, 1085, 1200, 1325, 1464, 1614, 1777

Offset: 1

Gus Wiseman, Feb 01 2021

nonn

			The a(1) = 1 through a(16) = 10 partitions (A..G = 10..16):
  1  2  3   4  5   6    7   8   9    A     B    C    D    E     F      G
        21     41  42   43  62  63   64    65   84   85   86    87     A6
                   321  61      81   82    83   A2   A3   A4    A5     C4
                                621  631   A1   642  C1   C2    C3     E2
                                     4321  632  651  643  653   E1     943
                                           641  921  652  932   654    952
                                                     931  941   942    961
                                                          8321  951    C31
                                                                C21    8431
                                                                8421   8521
                                                                54321

FindStat, St000010: The length of the partition.
FindStat, St000147: The largest part of an integer partition.
FindStat, St000784: The maximum of the length and the largest part of the integer partition.

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict version is A168659 (A340609/A340610).
A018818 counts partitions into divisors (A326841).
A047993 counts balanced partitions (A106529).
A064173 counts partitions of positive/negative rank (A340787/A340788).
A067538 counts partitions whose length/max divides sum (A316413/A326836).
A072233 counts partitions by sum and length, with strict case A008289.
A096401 counts strict partition with length equal to minimum.
A102627 counts strict partitions with length dividing sum.
A326842 counts partitions whose length and parts all divide sum (A326847).
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A340829 counts strict partitions with Heinz number divisible by sum.
A340830 counts strict partitions with all parts divisible by length.
Cf. A003114, A006141, A064174, A117409, A143773 (A316428), A200750, A326843 (A326837), A330950 (A324851).

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Divisible[Max@@#,Length[#]]&]],{n,30}]

cp's OEIS Frontend

A363725 Number of integer partitions of n with a different mean, median, and mode, assuming there is a unique mode.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A364912 Triangle read by rows where T(n,k) is the number of ways to write n as a positive linear combination of an integer partition of k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A359899 Number of strict odd-length integer partitions of n whose parts have the same mean as median.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A364464 Number of strict integer partitions of n where no part is the difference of two consecutive parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

A364670 Number of strict integer partitions of n with a part equal to the sum of two distinct others. A variation of sum-full strict partitions.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A365002 Number of ways to write n as a nonnegative linear combination of a strict integer partition.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Python

Extensions

A364466 Number of subsets of {1..n} where some element is a difference of two consecutive elements.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

A365004 Array read by antidiagonals downwards where A(n,k) is the number of ways to write n as a nonnegative linear combination of an integer partition of k.

Views

Author

Keywords

Comments

Examples