OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..375
FORMULA
MATHEMATICA
(* Generating series *)
A[x_] := InverseErf[(2 Exp[x] - 2 + Exp[1] Sqrt[Pi] Erf[1])/(Exp[1] Sqrt[Pi])];
CoefficientList[Series[A'[x]^2, {x, 0, 20}], x] Table[n!, {n, 0, 20}]
(* Recurrences *)
a[n_] := a[n] = a[n-1]+2Sum[Binomial[n-2, k]a[k]b[n-2-k], {k, 0, n-2}];
a[1] = 1;
a[0] = 1;
b[n_] := Sum[Binomial[n, k]a[k+1]a[n-k+1], {k, 0, n}];
Table[b[n], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Emanuele Munarini, Jan 18 2013
STATUS
approved