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 A101645 #9 Mar 28 2015 17:49:20
%S A101645 21,144,987,1008,6765,6786,6909,46368,46389,46512,47355,47376,317811,
%T A101645 317832,317955,318798,318819,324576,324597,324720,2178309,2178330,
%U A101645 2178453,2179296,2179317,2185074,2185095,2185218,2224677,2224698
%N A101645 Third row of array in A101385.
%t A101645 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 A101645 Table[ kfpv[n, 3], {n, 30}] (* _Robert G. Wilson v_, Feb 09 2005 *)
%Y A101645 Cf. A101385.
%K A101645 nonn,easy
%O A101645 1,1
%A A101645 _N. J. A. Sloane_, Jan 25 2005, Jan 27 2005
%E A101645 More terms from _David Applegate_, Jan 26 2005
%E A101645 More terms from _Robert G. Wilson v_, Feb 09 2005