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 A101644 #9 Jul 30 2015 21:43:17
%S A101644 8,34,144,152,610,618,644,2584,2592,2618,2728,2736,10946,10954,10980,
%T A101644 11090,11098,11556,11564,11590,46368,46376,46402,46512,46520,46978,
%U A101644 46986,47012,48952,48960,48986,49096,49104,196418,196426,196452,196562
%N A101644 Second row of array in A101385.
%t A101644 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]}]];
%t A101644 Table[ kfpv[n, 2], {n, 40}] (* _Robert G. Wilson v_, Feb 09 2005 *)
%Y A101644 Cf. A101385.
%K A101644 nonn,easy
%O A101644 1,1
%A A101644 _N. J. A. Sloane_, Jan 25 2005, Jan 27 2005
%E A101644 More terms from _David Applegate_, Jan 26 2005
%E A101644 More terms from _Robert G. Wilson v_, Feb 09 2005