login
A101633
Main diagonal of array in A101385.
4
3, 34, 987, 1032, 75025, 75138, 76279, 14930352, 14930643, 14935554, 15024075, 15024408, 7778742049, 7778742806, 7778763975, 7779378658, 7779379457, 7797272004, 7797272871, 7797295150, 10610209857723, 10610209859700
OFFSET
1,1
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, n], {n, 18}] (* Robert G. Wilson v, Feb 09 2005 *)
CROSSREFS
Cf. A101385.
Sequence in context: A069718 A077144 A222778 * A250093 A054783 A222892
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 26 2005
EXTENSIONS
More terms from David Applegate, Jan 26 2005
More terms from Robert G. Wilson v, Feb 09 2005
STATUS
approved