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 A101633 #8 Nov 21 2014 09:46:07
%S A101633 3,34,987,1032,75025,75138,76279,14930352,14930643,14935554,15024075,
%T A101633 15024408,7778742049,7778742806,7778763975,7779378658,7779379457,
%U A101633 7797272004,7797272871,7797295150,10610209857723,10610209859700
%N A101633 Main diagonal of array in A101385.
%t A101633 zeck[n_Integer] := Block[{k = Ceiling[ Log[ GoldenRatio, n*Sqrt[5]]], t = n, fr = {}}, While[k > 1, If[t >= Fibonacci[k], AppendTo[fr, 1]; t = t - Fibonacci[k], AppendTo[fr, 0]]; k-- ]; FromDigits[fr]]; kfpv[n_, m_] := Block[{y = Reverse[IntegerDigits[zeck[n]]], z = Reverse[IntegerDigits[zeck[m]]]}, Sum[ y[[i]]*z[[j]]*Fibonacci[(i + 1)(j + 1)], {i, Length[y]}, {j, Length[z]}]]; (* _Robert G. Wilson v_ Feb 09 2005 *)
%t A101633 Table[ kfpv[n, n], {n, 18}] (* _Robert G. Wilson v_, Feb 09 2005 *)
%Y A101633 Cf. A101385.
%K A101633 nonn
%O A101633 1,1
%A A101633 _N. J. A. Sloane_, Jan 26 2005
%E A101633 More terms from _David Applegate_, Jan 26 2005
%E A101633 More terms from _Robert G. Wilson v_, Feb 09 2005