A101645 Third row of array in A101385.

21, 144, 987, 1008, 6765, 6786, 6909, 46368, 46389, 46512, 47355, 47376, 317811, 317832, 317955, 318798, 318819, 324576, 324597, 324720, 2178309, 2178330, 2178453, 2179296, 2179317, 2185074, 2185095, 2185218, 2224677, 2224698

Offset: 1

Author

N. J. A. Sloane, Jan 25 2005, Jan 27 2005

Keywords

• nonn
• easy

Crossrefs

Cf. A101385.

Programs

Mathematica

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 *)
Table[ kfpv[n, 3], {n, 30}] (* Robert G. Wilson v, Feb 09 2005 *)

Extensions

More terms from David Applegate, Jan 26 2005

More terms from Robert G. Wilson v, Feb 09 2005