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 A101643 #9 Mar 28 2015 17:48:36
%S A101643 3,8,21,24,55,58,63,144,147,152,165,168,377,380,385,398,401,432,435,
%T A101643 440,987,990,995,1008,1011,1042,1045,1050,1131,1134,1139,1152,1155,
%U A101643 2584,2587,2592,2605,2608,2639,2642,2647,2728,2731,2736,2749,2752,2961,2964
%N A101643 First row of array in A101385.
%t A101643 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 A101643 Table[ kfpv[n, 1], {n, 48}] (* _Robert G. Wilson v_, Feb 09 2005 *)
%Y A101643 Cf. A101385.
%K A101643 nonn
%O A101643 1,1
%A A101643 _N. J. A. Sloane_, Jan 25 2005, Jan 27 2005
%E A101643 More terms from _David Applegate_, Jan 26 2005
%E A101643 More terms from _Robert G. Wilson v_, Feb 09 2005