OFFSET
0,2
COMMENTS
Self-convolution of a(n) gives A003266(n)*4^n.
FORMULA
Sum_{k=0..n} a(k)/4^k * a(n-k)/4^(n-k) = A003266(n).
MAPLE
a:= proc(n) option remember; `if`(n=0, 1, (4^n
*mul((<<0|1>, <1|1>>^i)[1, 2], i=1..n)-
add(a(k)*a(n-k), k=1..n-1))/2)
end:
seq(a(n), n=0...20); # Alois P. Heinz, Oct 12 2016
MATHEMATICA
With[{n = 20}, Sqrt[Sum[Fibonorial[k] (4 x)^k, {k, 0, n - 1}] + O[x]^n][[3]]] (* before version 10.0 define Fibonorial[n_] := Product[Fibonacci[k], {k, 1, n}] *)
KEYWORD
nonn
AUTHOR
Vladimir Reshetnikov, Oct 10 2016
STATUS
approved