This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A181927 #13 Feb 18 2016 10:15:33
%S A181927 1,2,3,10,56,502,6930,157172,5847270,350430420,33789991248,
%T A181927 5280020814732,1338210835193414,548265785425359340,
%U A181927 363248986031094300018,389399454403643525265020,675824289510077938157099920
%N A181927 Row square-sums of Fibonomial triangle A010048.
%F A181927 a(n) = sum(fibonomial(n,k)^2,k=0..n).
%t A181927 FiboFactorial[n_] := Product[Fibonacci[k], {k, 1, n}]
%t A181927 Fibonomial[n_, k_] :=
%t A181927 If[k > n, 0, FiboFactorial[n]/(FiboFactorial[k] FiboFactorial[n - k])
%t A181927 ]
%t A181927 Table[Sum[Fibonomial[n, k]^2, {k, 0, n}], {n, 0, 100}]
%t A181927 (* _Emanuele Munarini_, Feb 18 2016 *)
%o A181927 (Maxima) ffib(n):=prod(fib(k),k,1,n);
%o A181927 fibonomial(n,k):=ffib(n)/(ffib(k)*ffib(n-k));
%o A181927 makelist(sum(fibonomial(n,k)^2,k,0,n),n,0,30);
%Y A181927 Cf. A010048, A056569.
%K A181927 nonn
%O A181927 0,2
%A A181927 _Emanuele Munarini_, Apr 02 2012