OFFSET
7,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 7..500
EXAMPLE
a(7) = 18: 3567241, 4567123, 4567132, 4567213, 4567312, 4567321, 4672351, 4673512, 4673521, 5671342, 5672314, 5672413, 5672431, 5673241, 5674231, 6734512, 6734521, 6745231.
MAPLE
b:= proc(u, o) option remember; `if`(u+o=0, 1, add(
b(u-j, o+j-1), j=1..u) +add(convert(series(
b(u+j-1, o-j)*x^u, x, 10), polynom), j=1..o))
end:
a:= n-> coeff(b(n, 0), x, 9):
seq(a(n), n=7..25);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Nov 14 2015
STATUS
approved