|
|
A352435
|
|
a(0) = 1; a(n) = Sum_{k=0..floor((n-1)/2)} binomial(n,2*k+1) * a(k) * a(n-2*k-1).
|
|
2
|
|
|
1, 1, 2, 7, 32, 182, 1244, 9919, 90384, 926552, 10553728, 132231446, 1807390960, 26762801828, 426771821000, 7291604699407, 132885997278944, 2573145015936096, 52756125043795232, 1141727892772848248, 26009303834699461248, 622134297287753003008, 15589886235793001142016
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: 1 / (1 - Sum_{n>=0} a(n) * x^(2*n+1) / (2*n+1)!).
|
|
MATHEMATICA
|
a[0] = 1; a[n_] := a[n] = Sum[Binomial[n, 2 k + 1] a[k] a[n - 2 k - 1], {k, 0, Floor[(n - 1)/2]}]; Table[a[n], {n, 0, 22}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|