login
A331519
a(0) = 1; a(n) = Sum_{k=1..n} (binomial(n,k) mod 2) * a(k-1) * a(n-k).
0
1, 1, 1, 3, 3, 9, 15, 63, 63, 189, 315, 1323, 1701, 6237, 12285, 59535, 59535, 178605, 297675, 1250235, 1607445, 5893965, 11609325, 56260575, 63761985, 213790185, 393824025, 1811590515, 2531725875, 10025634465, 21210236775, 109876902975, 109876902975, 329630708925
OFFSET
0,4
MATHEMATICA
a[0] = 1; a[n_] := a[n] = Sum[Mod[Binomial[n, k], 2] a[k - 1] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 33}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 19 2020
STATUS
approved