OFFSET
0,4
REFERENCES
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..100
G. W. Ford and G. E. Uhlenbeck, Combinatorial problems in the theory of graphs III, Proc. Nat. Acad. Sci. USA, 42 (1956), 529-535.
FORMULA
a(n) = A035351/n, n>0. - Christian G. Bower, Nov 15 1998
MAPLE
A:= proc(n) option remember; if n<=0 then x else convert(series(x* exp((2*A(n-1) -A(n-1)^2)/ (2-2*A(n-1))), x=0, n+2), polynom) fi end: a:= n-> if n=0 then 1 else coeff(series(A(n-1), x=0, n+1), x, n)*(n-1)! fi: seq(a(n), n=0..30); # Alois P. Heinz, Aug 20 2008
MATHEMATICA
A[n_] := A[n] = If[n <= 0, x, Normal[Series[x*Exp[(2*A[n-1]-A[n-1]^2)/ (2-2*A[n-1])], {x, 0, n+2}]]]; a[n_] := If[n == 0, 1, Coefficient [Series[A[n-1], {x, 0, n+1}], x, n]*(n-1)!]; Table [a[n], {n, 0, 30}] (* Jean-François Alcover, Mar 03 2014, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Christian G. Bower, Nov 15 1998
STATUS
approved