OFFSET
0,4
COMMENTS
Sequence shifts left when x is replaced by x/(1-x) in e.g.f.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..300
P. J. Cameron, Sequence operators from groups, Linear Alg. Applic., 226-228 (1995), 109-113.
FORMULA
a(n+1) = Sum_{k=0..n} n!/k!*binomial(n-1, k-1)*a(k). - Vladeta Jovovic, Sep 03 2005
MAPLE
a:= proc(n) option remember; `if`(n=0, 1, add(
(n-1)!/k!*binomial(n-2, k-1)*a(k), k=0..n-1))
end:
seq(a(n), n=0..20); # Alois P. Heinz, Feb 10 2015
MATHEMATICA
nmax=20; b = ConstantArray[0, nmax+2]; b[[1]]=1; Do[b[[n+2]] = Sum[n!/k!*Binomial[n-1, k-1]*b[[k+1]], {k, 0, n}], {n, 0, nmax}]; b (* Vaclav Kotesovec, Mar 02 2014 *)
CROSSREFS
KEYWORD
nonn,eigen
AUTHOR
EXTENSIONS
More terms from Christian G. Bower, Mar 15 1999
STATUS
approved