A276429 -id:A276429 - cp's OEIS frontend

A114640 Number of partitions of n such that the set of parts and the set of multiplicities of parts are equal.

1, 1, 0, 0, 2, 1, 1, 0, 1, 1, 3, 2, 3, 3, 5, 0, 4, 5, 2, 3, 8, 6, 5, 10, 9, 9, 16, 14, 12, 16, 17, 10, 17, 15, 16, 19, 35, 17, 34, 37, 40, 31, 54, 36, 60, 61, 58, 63, 88, 58, 88, 87, 91, 84, 115, 93, 116, 108, 115, 130, 190, 143, 165, 214, 219, 200, 255, 240

Offset: 0

Vladeta Jovovic, Feb 18 2006

nonn

The Heinz numbers of these partitions are given by A109297. - Gus Wiseman, Apr 02 2019

			From _Gus Wiseman_, Apr 02 2019: (Start)
The initial terms count the following integer partitions:
   0: ()
   1: (1)
   4: (22)
   4: (211)
   5: (221)
   6: (3111)
   8: (41111)
   9: (333)
  10: (511111)
  10: (3331)
  10: (322111)
  11: (332111)
  11: (322211)
  12: (6111111)
  12: (4221111)
  12: (33222)
  13: (33322)
  13: (333211)
  13: (332221)
  14: (71111111)
  14: (52211111)
  14: (4421111)
  14: (4222211)
  14: (333221)
(End)

Cf. A052335, A087153, A109297, A114639, A115584, A117144, A276429, A324572, A325132, A336031.

Table[Length[Select[IntegerPartitions[n],Union[#]==Union[Length/@Split[#]]&]],{n,0,30}] (* Gus Wiseman, Apr 02 2019 *)

More terms from Alois P. Heinz, Aug 09 2016

A087153 Number of partitions of n into nonsquares.

Original entry on oeis.org

1, 0, 1, 1, 1, 2, 3, 3, 5, 5, 8, 9, 13, 15, 20, 24, 30, 37, 47, 55, 71, 83, 103, 123, 151, 178, 218, 257, 310, 366, 440, 515, 617, 722, 857, 1003, 1184, 1380, 1625, 1889, 2214, 2570, 3000, 3472, 4042, 4669, 5414, 6244, 7221, 8303, 9583, 10998, 12655, 14502

Offset: 0

Reinhard Zumkeller, Aug 21 2003

nonn

Also, number of partitions of n where there are fewer than k parts equal to k for all k. - Jon Perry and Vladeta Jovovic, Aug 04 2004. E.g. a(8)=5 because we have 8=6+2=5+3=4+4=3+3+2.
Convolution of A276516 and A000041. - Vaclav Kotesovec, Dec 30 2016
From Gus Wiseman, Apr 02 2019: (Start)
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). The Heinz numbers of the integer partitions described in Perry and Jovovic's comment are given by A325128, while the Heinz numbers of the integer partitions described in the name are given by A325129. In the former case, the first 10 terms count the following integer partitions:
  ()  (2)  (3)  (4)  (5)   (6)   (7)   (8)    (9)
                     (32)  (33)  (43)  (44)   (54)
                           (42)  (52)  (53)   (63)
                                       (62)   (72)
                                       (332)  (432)
while in the latter case they count the following:
  ()  (2)  (3)  (22)  (5)   (6)    (7)    (8)     (63)
                      (32)  (33)   (52)   (53)    (72)
                            (222)  (322)  (62)    (333)
                                          (332)   (522)
                                          (2222)  (3222)
(End)

			n=7: 2+5 = 2+2+3 = 7: a(7)=3;
n=8: 2+6 = 2+2+2+2 = 2+3+3 = 3+5 = 8: a(8)=5;
n=9: 2+7 = 2+2+5 = 2+2+2+3 = 3+3+3 = 3+6: a(9)=5.

G. E. Andrews, K. Eriksson, Integer Partitions, Cambridge Univ. Press, 2004. See page 48.

T. D. Noe and Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..1000 from T. D. Noe)
Daniel I. A. Cohen, PIE-sums: a combinatorial tool for partition theory. J. Combin. Theory Ser. A 31 (1981), no. 3, 223--236. MR0635367 (82m:10026). See Cor. 5. - _N. J. A. Sloane_, Mar 27 2012
James A. Sellers, Partitions Excluding Specific Polygonal Numbers As Parts, Journal of Integer Sequences, Vol. 7 (2004), Article 04.2.4.

Cf. A087154, A001156, A000009, A000037, A052335 (<=k parts of k).
Cf. A115584, A172151, A225044, A264393, A276516.
Cf. A033461, A114639, A117144, A276429, A324572, A324588, A325128, A325129.

a087153 = p a000037_list where
   p _          0 = 1
   p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m
-- Reinhard Zumkeller, Apr 25 2013

g:=product((1-x^(i^2))/(1-x^i),i=1..70):gser:=series(g,x=0,60):seq(coeff(gser,x^n),n=1..53); # Emeric Deutsch, Feb 09 2006

nn=54; CoefficientList[ Series[ Product[ Sum[x^(i*j), {j, 0, i - 1}], {i, 1, nn}], {x, 0, nn}], x] (* Robert G. Wilson v, Aug 05 2004 *)
nmax = 100; CoefficientList[Series[Product[(1 - x^(k^2))/(1 - x^k), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Dec 29 2016 *)

first(n)=my(x='x+O('x^(n+1))); Vec(prod(m=1,sqrtint(n), (1-x^m^2)/(1-x^m))*prod(m=sqrtint(n)+1,n,1/(1-x^m))) \\ Charles R Greathouse IV, Aug 28 2016

G.f.: Product_{m>0} (1-x^(m^2))/(1-x^m). - Vladeta Jovovic, Aug 21 2003
a(n) = (1/n)*Sum_{k=1..n} (A000203(k)-A035316(k))*a(n-k), a(0)=1. - Vladeta Jovovic, Aug 21 2003
G.f.: Product_{i>=1} (Sum_{j=0..i-1} x^(i*j)). - Jon Perry, Jul 26 2004
a(n) ~ exp(Pi*sqrt(2*n/3) - 3^(1/4) * Zeta(3/2) * n^(1/4) / 2^(3/4) - 3*Zeta(3/2)^2/(32*Pi)) * sqrt(Pi) / (2^(3/4) * 3^(1/4) * n^(3/4)). - Vaclav Kotesovec, Dec 30 2016

Zeroth term added by Franklin T. Adams-Watters, Jan 25 2010

A114639 Number of partitions of n such that the set of parts and the set of multiplicities of parts are disjoint.

Original entry on oeis.org

1, 0, 2, 2, 2, 3, 5, 4, 7, 7, 13, 16, 19, 23, 33, 34, 44, 58, 63, 80, 101, 112, 139, 171, 196, 234, 288, 328, 394, 478, 545, 658, 777, 881, 1050, 1236, 1414, 1666, 1936, 2216, 2592, 3018, 3428, 3992, 4604, 5243, 6069, 6986, 7951, 9139, 10447, 11892, 13625

Offset: 0

Vladeta Jovovic, Feb 18 2006

nonn

The Heinz numbers of these partitions are given by A325131. - Gus Wiseman, Apr 02 2019

			From _Gus Wiseman_, Apr 02 2019: (Start)
The a(2) = 2 through a(9) = 7 partitions:
  (2)   (3)    (4)     (5)      (6)       (7)        (8)         (9)
  (11)  (111)  (1111)  (32)     (33)      (43)       (44)        (54)
                       (11111)  (42)      (52)       (53)        (63)
                                (222)     (1111111)  (62)        (72)
                                (111111)             (2222)      (432)
                                                     (3311)      (222111)
                                                     (11111111)  (111111111)
(End)

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

Cf. A052335, A087153, A114640, A115584, A117144, A276429, A324572, A325130, A325131, A336032.

b:= proc(n, i, p, m) option remember; `if`(n=0, 1,
      `if`(i<1, 0, b(n, i-1, p, select(x-> x x<=n-i*j, p union {i}),
         select(x-> x b(n$2, {}$2):
seq(a(n), n=0..40);  # Alois P. Heinz, Aug 09 2016

b[n_, i_, p_, m_] := b[n, i, p, m] = If[n == 0, 1, If[i<1, 0, b[n, i-1, p, Select[m, #Jean-François Alcover, Feb 05 2017, after Alois P. Heinz *)
Table[Length[Select[IntegerPartitions[n],Intersection[#,Length/@Split[#]]=={}&]],{n,0,30}] (* Gus Wiseman, Apr 02 2019 *)

a(0)=1 prepended and more terms from Alois P. Heinz, Aug 09 2016

A115584 Number of partitions of n in which each part k occurs more than k times.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 2, 1, 3, 2, 4, 3, 6, 4, 7, 7, 8, 8, 12, 9, 15, 14, 17, 18, 24, 21, 29, 29, 35, 35, 46, 42, 56, 54, 65, 67, 81, 77, 98, 95, 115, 114, 139, 135, 164, 165, 190, 195, 230, 225, 272, 271, 313, 321, 370, 374, 433, 441, 501, 514, 589, 592, 681, 698, 778, 809, 907

Offset: 0

Vladeta Jovovic, Mar 09 2006

The Heinz numbers of these partitions are given by A325127. - Gus Wiseman, Apr 02 2019

			a(2) = 1 because we have [1,1]; a(10) = 4 because we have [2,2,2,2,2], [2,2,2,2,1,1], [2,2,2,1,1,1,1] and [1^10].
From _Gus Wiseman_, Apr 02 2019: (Start)
The initial terms count the following integer partitions:
   0: ()
   2: (11)
   3: (111)
   4: (1111)
   5: (11111)
   6: (222)
   6: (111111)
   7: (1111111)
   8: (2222)
   8: (22211)
   8: (11111111)
   9: (222111)
   9: (111111111)
  10: (22222)
  10: (222211)
  10: (2221111)
  10: (1111111111)
  11: (2222111)
  11: (22211111)
  11: (11111111111)
  12: (3333)
  12: (222222)
  12: (2222211)
  12: (22221111)
  12: (222111111)
  12: (111111111111)
(End)

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

Cf. A052335, A087153, A114639, A117144, A276429, A324572, A325127.

g:=product((1-x^k+x^(k*(k+1)))/(1-x^k),k=1..30): gser:=series(g,x=0,75): seq(coeff(gser,x,n),n=0..70); # Emeric Deutsch, Mar 12 2006
# second Maple program:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      b(n, i-1) +add(b(n-i*j, i-1), j=i+1..n/i)))
    end:
a:= n-> b(n$2):
seq(a(n), n=0..80);  # Alois P. Heinz, Feb 09 2017

CoefficientList[ Series[ Product[(1 - x^k + x^(k(k + 1)))/(1 - x^k), {k, 14}], {x, 0, 66}], x] (* Robert G. Wilson v, Mar 12 2006 *)
Table[Length[Select[IntegerPartitions[n],And@@Table[Count[#,i]>i,{i,Union[#]}]&]],{n,0,30}] (* Gus Wiseman, Apr 02 2019 *)

G.f.: Product_{k>=1} (1-x^k+x^(k*(k+1)))/(1-x^k).

More terms from Robert G. Wilson v and Emeric Deutsch, Mar 12 2006

A276427 Irregular triangle read by rows: T(n,k) = number of partitions of n having k distinct parts i of multiplicity i; 0 <= k <= A328806(n)-1 = largest index of a nonzero value; n >= 0.

Original entry on oeis.org

1, 0, 1, 2, 2, 1, 3, 2, 5, 1, 1, 8, 3, 9, 6, 16, 5, 1, 19, 10, 1, 29, 11, 2, 36, 18, 2, 53, 21, 3, 65, 32, 4, 92, 38, 4, 1, 115, 54, 7, 154, 67, 10, 195, 88, 14, 257, 112, 15, 1, 318, 152, 19, 1, 419, 178, 29, 1, 516, 243, 31, 2, 663, 293, 44, 2, 821, 376, 56, 2, 1039, 465, 67, 4, 1277, 589, 89, 3, 1606, 715, 108, 7

Offset: 0

Emeric Deutsch, Sep 19 2016

The sum of entries in row n is A000041(n): the partition numbers. [This allows us to know the row length, i.e., when the largest value of k is reached for which T(n,k) is nonzero. The row lengths are now listed as A328806. - M. F. Hasler, Oct 28 2019]

			Triangle starts:
1;       (n=0: partition [] has k=0 parts i of multiplicity i: T(0,0) = 1.)
0, 1;    (n=1: partition [1] has k=1 part i of multiplicity i: T(1,1) = 1.)
2;       (n=2: partitions [1,1] and [2] have k=0 parts i occurring i times.)
2, 1;    (n=3: [1,1,1] and [3] have 0, [1,2] has 1 part i occurring i times)
3, 2;    (n=4: [4], [1,1,2] and [1,1,1,1] for k=0; [1,3] & [2,2] for k=1.)
5, 1, 1; (n=5: [1,4] has i=1, [1,2,2] has i=1 and i=2 occurring i times.)
(...)
The partition [1,2,3,3,3,4] has 2 parts i of multiplicity i: i=1 and i=3.
T(14,3) = 1, since [1,2,2,3,3,3] is the only partition of 14 having k=3 parts i with multiplicity i, namely i = 1, 2 and 3.
T(14,2) = 4, counting [1,2,2,3,6], [1,2,2,4,5], [1,2,2,9] (with i=1 and i=2), and [1,3,3,3,4] (with i=1 and i=3).

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

Cf. A000041 (row sums), A276428, A276429, A328806 (row lengths).

G := mul((t-1)*x^(i^2)+1/(1-x^i), i = 1 .. 100): Gser := simplify(series(G, x = 0, 35)): for n from 0 to 30 do P[n] := sort(coeff(Gser, x, n)) end do: for n from 0 to 30 do seq(coeff(P[n], t, k), k = 0 .. degree(P[n])) end do; # yields sequence in triangular form
# second Maple program:
b:= proc(n, i) option remember; expand(
      `if`(n=0, 1, `if`(i<1, 0, add(
      `if`(i=j, x, 1)*b(n-i*j, i-1), j=0..n/i))))
    end:
T:= n->(p->seq(coeff(p, x, i), i=0..degree(p)))(b(n$2)):
seq(T(n), n=0..30);  # Alois P. Heinz, Sep 19 2016

b[n_, i_] := b[n, i] = Expand[If[n==0, 1, If[i<1, 0, Sum[If[i==j, x, 1] * b[n-i*j, i-1], {j, 0, n/i}]]]]; T[n_] := Function[p, Table[ Coefficient[ p, x, i], {i, 0, Exponent[p, x]}]][b[n, n]]; Table[T[n], {n, 0, 30}] // Flatten (* Jean-François Alcover, Oct 20 2016, after Alois P. Heinz *)

apply( A276427_row(n, r=List(0))={forpart(p=n, my(s, c=1); for(i=1, #p, p[i]==if(i<#p, p[i+1]) && c++ && next; c==p[i] && s++; c=1); while(#r<=s, listput(r,0)); r[s+1]++);Vec(r)}, [0..20]) \\ M. F. Hasler, Oct 27 2019

G.f.:  G(t,x) = Product_{i>=1} ((t-1)*x^{i^2} + 1/(1-x^i)).
T(n,0) = A276429(n).
Sum(k*T(n,k), k>=0) = A276428(n).

Name edited by M. F. Hasler, Oct 27 2019

A325130 Numbers in whose prime factorization the exponent of prime(k) is not equal to k for any prime index k.

Original entry on oeis.org

1, 3, 4, 5, 7, 8, 11, 12, 13, 15, 16, 17, 19, 20, 21, 23, 24, 25, 27, 28, 29, 31, 32, 33, 35, 37, 39, 40, 41, 43, 44, 47, 48, 49, 51, 52, 53, 55, 56, 57, 59, 60, 61, 64, 65, 67, 68, 69, 71, 73, 75, 76, 77, 79, 80, 81, 83, 84, 85, 87, 88, 89, 91, 92, 93, 95, 96

Offset: 1

Gus Wiseman, Apr 01 2019

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 Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are Heinz numbers of the integer partitions counted by A276429.
The asymptotic density of this sequence is Product_{k>=1} (1 - 1/prime(k)^k + 1/prime(k)^(k+1)) = 0.68974964705635552968... - Amiram Eldar, Jan 09 2021

			The sequence of terms together with their prime indices begins:
   1: {}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
  11: {5}
  12: {1,1,2}
  13: {6}
  15: {2,3}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  20: {1,1,3}
  21: {2,4}
  23: {9}
  24: {1,1,1,2}
  25: {3,3}
  27: {2,2,2}
  28: {1,1,4}

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

Cf. A056239, A087153, A112798, A124010, A276078, A276429.
Cf. A324525, A324571, A325127, A325128, A325130, A325131.
Complement of A276936.

q:= n-> andmap(i-> numtheory[pi](i[1])<>i[2], ifactors(n)[2]):
a:= proc(n) option remember; local k; for k from 1+
     `if`(n=1, 0, a(n-1)) while not q(k) do od; k
    end:
seq(a(n), n=1..80);  # Alois P. Heinz, Oct 28 2019

Select[Range[100],And@@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>k!=PrimePi[p]]&]

A276434 Sum over all partitions of n of the number of distinct parts i of multiplicity i+1.

Original entry on oeis.org

0, 0, 1, 0, 1, 1, 3, 3, 5, 6, 10, 12, 19, 23, 34, 41, 58, 72, 98, 121, 162, 200, 262, 323, 415, 511, 650, 796, 1000, 1222, 1522, 1851, 2287, 2771, 3399, 4103, 5000, 6015, 7289, 8735, 10530, 12579, 15094, 17968, 21468, 25477, 30319, 35873, 42531, 50177, 59291

Offset: 0

Emeric Deutsch, Sep 30 2016

nonn

			a(6) = 3 because in the partitions [1,1,1,1,1,1], [1,1,1,1,2], [1',1,2,2], [2',2,2], [1,1,1,3], [1,2,3], [3,3], [1',1,4], [2,4], [1,5], [6] of 6 only the marked parts satisfy the requirement.

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..1000 from Alois P. Heinz)

Cf. A276427, A276428, A276429, A276433, A277099, A277100, A277101, A277102.

g := (sum(x^(i*(i+1))*(1-x^i), i = 1 .. 200))/(product(1-x^i, i = 1 .. 200)): gser := series(g, x = 0, 53): seq(coeff(gser, x, n), n = 0 .. 50);
# second Maple program:
b:= proc(n, i) option remember; `if`(n=0, [1, 0],
     `if`(i<1, 0, add((p-> p+`if`(i+1<>j, 0,
      [0, p[1]]))(b(n-i*j, i-1)), j=0..n/i)))
    end:
a:= n-> b(n$2)[2]:
seq(a(n), n=0..60);  # Alois P. Heinz, Sep 30 2016

max = 60; s = Sum[x^(i*(i+1))*(1-x^i), {i, 1, max}]/QPochhammer[x] + O[x]^max; CoefficientList[s, x] (* Jean-François Alcover, Dec 08 2016 *)

a(n) = Sum(k*A276433(n,k), k>=0).

G.f.: g(x) = Sum_(i>=1) (x^(i(i+1))(1-x^i))/Product_(i>=1) (1-x^i).

A277101 Sum over all partitions of n of the number of distinct parts i of multiplicity i - 1.

Original entry on oeis.org

0, 0, 1, 1, 1, 2, 4, 5, 8, 10, 15, 20, 29, 37, 52, 67, 89, 115, 152, 192, 251, 316, 405, 508, 644, 799, 1006, 1243, 1546, 1901, 2351, 2871, 3527, 4289, 5232, 6336, 7688, 9264, 11189, 13430, 16137, 19299, 23097, 27514, 32799, 38944, 46246, 54738, 64782, 76430, 90171

Offset: 0

Emeric Deutsch, Oct 10 2016

nonn

			a(6) = 4 because in the partitions [1,1,1,1,1,1], [1,1,1,1,2'], [1,1,2,2], [2,2,2], [1,1,1,3], [1,2',3], [3',3], [1,1,4], [2',4], [1,5], [6] of 6 only the marked parts satisfy the requirement.

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..1000 from Alois P. Heinz)

Cf. A276427, A276428, A276429, A276433, A276434, A277099, A277100, A277102.

g := (sum(x^(i*(i+1))*(1-x^(i+1)), i = 1 .. 200))/(product(1-x^i, i = 1 .. 200)): gser := series(g, x = 0, 53): seq(coeff(gser, x, n), n = 0 .. 50);
# second Maple program:
b:= proc(n, i) option remember; `if`(n=0, [1, 0],
     `if`(i<1, 0, add((p-> p+`if`(i-1<>j, 0,
      [0, p[1]]))(b(n-i*j, i-1)), j=0..n/i)))
    end:
a:= n-> b(n$2)[2]:
seq(a(n), n=0..60);  # Alois P. Heinz, Oct 10 2016

max = 60; s = Sum[x^(i*(i+1))*(1-x^(1+i)), {i, 1, max}]/QPochhammer[x] + O[x]^max; CoefficientList[s, x] (* Jean-François Alcover, Dec 08 2016 *)

a(n) = Sum(k*A277100(n,k), k>=0).

G.f.: g(x) = Sum_(i>=1)(x^(i(i+1))(1-x^(i+1)))/Product_(i>=1)(1-x^i).

A276433 Irregular triangle read by rows: T(n,k) is the number of partitions of n having k distinct parts i of multiplicity i+1 (n>=0).

Original entry on oeis.org

1, 1, 1, 1, 3, 4, 1, 6, 1, 8, 3, 12, 3, 18, 3, 1, 24, 6, 32, 10, 45, 10, 1, 59, 17, 1, 79, 21, 1, 104, 28, 3, 137, 37, 2, 177, 50, 4, 229, 64, 4, 295, 82, 8, 377, 105, 8, 477, 139, 10, 1, 605, 174, 13, 761, 220, 21, 956, 275, 24, 1193, 350, 31, 1

Offset: 0

Emeric Deutsch, Sep 30 2016

Sum of entries in row n is A000041(n) (the partition numbers).
T(n,0) = A277099(n).
Sum(k*T(n,k), k>=0) = A276434(n).

			The partition [1,1,3,3,3,3,4] has 2 parts i of multiplicity i+1: 1 and 3.
T(5,1) = 1, counting [1,1,3].
T(6,1) = 3, counting [1,1,4], [1,1,2,2], and [2,2,2].
T(8,2) = 1, counting [1,1,2,2,2].
Triangle starts:
1;
1;
1,1;
3;
4,1;
6,1;
8,3.

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

Cf. A000041, A276427, A276428, A276429, A276434, A277099, A277100, A277101, A277102.

G := mul((t-1)*x^(i*(i+1))+1/(1-x^i), i = 1 .. 100): Gser := simplify(series(G, x = 0, 35)): for n from 0 to 30 do P[n] := sort(coeff(Gser, x, n)) end do: for n from 0 to 30 do seq(coeff(P[n],t,k),k = 0 .. degree(P[n])) end do; # yields sequence in triangular form
# second Maple program:
b:= proc(n, i) option remember; expand(
      `if`(n=0, 1, `if`(i<1, 0, add(
      `if`(i+1=j, x, 1)*b(n-i*j, i-1), j=0..n/i))))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..degree(p)))(b(n$2)):
seq(T(n), n=0..30);  # Alois P. Heinz, Sep 30 2016

b[n_, i_] := b[n, i] = Expand[If[n == 0, 1, If[i < 1, 0, Sum[If[i + 1 == j, x, 1]*b[n - i*j, i - 1], {j, 0, n/i}]]]]; T[n_] := Function[p, Table[ Coefficient[p, x, i], {i, 0, Exponent[p, x]}]][b[n, n]]; Table[T[n], {n, 0, 30}] // Flatten (* Jean-François Alcover, Nov 28 2016 after Alois P. Heinz *)

G.f.: G(t,x) = Product_{i>=1} ((t-1)*x^(i(i+1)) + 1/(1-x^i)).

A277099 Number of partitions of n containing no part i of multiplicity i+1.

Original entry on oeis.org

1, 1, 1, 3, 4, 6, 8, 12, 18, 24, 32, 45, 59, 79, 104, 137, 177, 229, 295, 377, 477, 605, 761, 956, 1193, 1484, 1840, 2276, 2800, 3441, 4210, 5141, 6261, 7603, 9206, 11132, 13419, 16144, 19380, 23223, 27763, 33134, 39467, 46931, 55703, 66008, 78085, 92239, 108776, 128091, 150617

Offset: 0

Emeric Deutsch, Sep 30 2016

nonn

			a(4) = 4 because we have [1,1,1,1], [1,3], [2,2], and [4]; the partition [1,1,2] does not qualify.

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

Cf. A276427, A276428, A276429, A276433, A276434, A277100, A277101, A277102.

g:= product(1/(1-x^i)-x^(i*(i+1)), i = 1 .. 100): gser := series(g, x = 0, 53): seq(coeff(gser, x, n), n = 0 .. 50);
# second Maple program:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(`if`(i+1=j, 0, b(n-i*j, i-1)), j=0..n/i)))
    end:
a:= n-> b(n$2):
seq(a(n), n=0..60);  # Alois P. Heinz, Sep 30 2016

nmax = 50; CoefficientList[Series[Product[(1/(1-x^k) - x^(k*(k+1))), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Sep 30 2016 *)

a(n) = A276433(n,0).

G.f.: g(x) = Product_{i>=1} (1/(1-x^i) - x^(i*(i+1))).

cp's OEIS Frontend

A114640 Number of partitions of n such that the set of parts and the set of multiplicities of parts are equal.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A087153 Number of partitions of n into nonsquares.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Formula

Extensions

A114639 Number of partitions of n such that the set of parts and the set of multiplicities of parts are disjoint.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A115584 Number of partitions of n in which each part k occurs more than k times.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A276427 Irregular triangle read by rows: T(n,k) = number of partitions of n having k distinct parts i of multiplicity i; 0 <= k <= A328806(n)-1 = largest index of a nonzero value; n >= 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A325130 Numbers in whose prime factorization the exponent of prime(k) is not equal to k for any prime index k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A276434 Sum over all partitions of n of the number of distinct parts i of multiplicity i+1.

Views

Author