login
Row square-sums of Fibonomial triangle A010048.
1

%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