OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..444
FORMULA
a(n) = (n-1)! * [x^(n-1)] exp(x+Sum_{j=1..5} (exp(j*x)-1)/j) for n>0, a(0) = 1.
MAPLE
b:= proc(n, m) option remember; `if`(n=0, 1,
add(b(n-1, max(m, j)), j=1..m+5))
end:
a:= n-> b(n, -4):
seq(a(n), n=0..25);
# second Maple program:
a:= n-> `if`(n=0, 1, (n-1)!*coeff(series(exp(x+add(
(exp(j*x)-1)/j, j=1..5)), x, n), x, n-1)):
seq(a(n), n=0..25);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Jun 15 2018
STATUS
approved