A241635 Number of compositions of n with exactly ten descents.

89, 1529, 15072, 109700, 651755, 3333143, 15159290, 62673818, 239267852, 853417204, 2869778022, 9163554647, 27947044811, 81799126374, 230699706092, 629085587197, 1663426352840, 4275866388599, 10708451601656, 26178837135330, 62580214195713, 146503017803381

Offset

30,1

Links

Joerg Arndt and Alois P. Heinz, Table of n, a(n) for n = 30..1000

Maple

b:= proc(n, i) option remember;
      `if`(n=0, 1, convert(series(add(b(n-j, j)*
      `if`(j<i, x, 1), j=1..n), x, 11), polynom))
    end:
a:= n-> coeff(b(n, 0), x, 10):
seq(a(n), n=30..55);

Mathematica

b[n_, i_] := b[n, i] = If[n == 0, 1, Sum[b[n - j, j]*
   If[j < i, x, 1], {j, 1, n}] // Expand];
a[n_] := Coefficient[b[n, 0], x, 10];
Table[a[n], {n, 30, 55}] (* Jean-François Alcover, Nov 28 2023, from Maple code *)

Crossrefs

Column k=10 of A238343 and of A238344.

Sequence in context: A226544 A220566 A301955 * A105719 A201091 A054680

Adjacent sequences: A241632 A241633 A241634 * A241636 A241637 A241638

Keyword

nonn

Author

Joerg Arndt and Alois P. Heinz, Apr 26 2014

Status

approved