|
%I #13 Feb 18 2016 10:15:33
%S 1,2,3,10,56,502,6930,157172,5847270,350430420,33789991248,
%T 5280020814732,1338210835193414,548265785425359340,
%U 363248986031094300018,389399454403643525265020,675824289510077938157099920
%N Row square-sums of Fibonomial triangle A010048.
%F a(n) = sum(fibonomial(n,k)^2,k=0..n).
%t FiboFactorial[n_] := Product[Fibonacci[k], {k, 1, n}]
%t Fibonomial[n_, k_] :=
%t If[k > n, 0, FiboFactorial[n]/(FiboFactorial[k] FiboFactorial[n - k])
%t ]
%t Table[Sum[Fibonomial[n, k]^2, {k, 0, n}], {n, 0, 100}]
%t (* _Emanuele Munarini_, Feb 18 2016 *)
%o (Maxima) ffib(n):=prod(fib(k),k,1,n);
%o fibonomial(n,k):=ffib(n)/(ffib(k)*ffib(n-k));
%o makelist(sum(fibonomial(n,k)^2,k,0,n),n,0,30);
%Y Cf. A010048, A056569.
%K nonn
%O 0,2
%A _Emanuele Munarini_, Apr 02 2012
|
