A101633 Main diagonal of array in A101385.

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

Links

Table of n, a(n) for n=1..22.

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

Adjacent sequences: A101630 A101631 A101632 * A101634 A101635 A101636

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