A241628 Number of compositions of n with exactly three descents.

3, 18, 78, 264, 786, 2097, 5179, 11998, 26400, 55593, 112814, 221639, 423318, 788518, 1436302, 2564135, 4494967, 7750068, 13160903, 22039386, 36434095, 59514365, 96139570, 153699716, 243345157, 381779187, 593848668, 916277405, 1403004758, 2132797015

Offset: 9

Author

Joerg Arndt and Alois P. Heinz, Apr 26 2014

Keywords

• nonn

Examples

			a(9) = 3: [2,1,3,2,1], [3,2,1,2,1], [2,1,2,1,2,1].
		

Links

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

Crossrefs

Column k=3 of A238343 and of A238344.

Programs

Maple

b:= proc(n, i) option remember;
      `if`(n=0, 1, convert(series(add(b(n-j, j)*
      `if`(j coeff(b(n, 0), x, 3):
seq(a(n), n=9..50);

Mathematica

k = 3;
b[n_, i_] := b[n, i] = If[n == 0, 1, Sum[b[n - j, j]*
     If[j < i, x, 1], {j, n}] + O[x]^(k + 1)];
a[n_] := SeriesCoefficient[b[n, 0], {x, 0, k}];
a /@ Range[9, 50] (* Jean-François Alcover, Aug 27 2021, after Maple code *)