A243483 Number of isoscent sequences of length n with exactly ten descents.

337, 160209, 23441160, 1838225077, 96489145747, 3811395804513, 121601176737897, 3282923948925446, 77478734844431881, 1636893656189797572, 31518723465396312391, 560886706260989476771, 9326899340333117160667, 146227744471477090965955, 2177361235069807245253904

Offset: 17

Author

Joerg Arndt and Alois P. Heinz, Jun 05 2014

Keywords

• nonn

Links

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

Crossrefs

Column k=10 of A242352.

Programs

Mathematica

b[n_, i_, t_] := b[n, i, t] = If[n < 1, 1, Expand[Sum[ If[j < i, x, 1] *b[n - 1, j, t + If[j == i, 1, 0]], {j, 0, t + 1}]]]; a[n_] := Coefficient[b[n - 1, 0, 0], x, 10]; Table[a[n], {n, 17, 40}] (* Jean-François Alcover, Feb 09 2015, after A242352 *)