OFFSET
0,2
FORMULA
a(n) = sum(fibonomial(n,k)^2,k=0..n).
MATHEMATICA
FiboFactorial[n_] := Product[Fibonacci[k], {k, 1, n}]
Fibonomial[n_, k_] :=
If[k > n, 0, FiboFactorial[n]/(FiboFactorial[k] FiboFactorial[n - k])
]
Table[Sum[Fibonomial[n, k]^2, {k, 0, n}], {n, 0, 100}]
(* Emanuele Munarini, Feb 18 2016 *)
PROG
(Maxima) ffib(n):=prod(fib(k), k, 1, n);
fibonomial(n, k):=ffib(n)/(ffib(k)*ffib(n-k));
makelist(sum(fibonomial(n, k)^2, k, 0, n), n, 0, 30);
CROSSREFS
KEYWORD
nonn
AUTHOR
Emanuele Munarini, Apr 02 2012
STATUS
approved