A101643 First row of array in A101385.

3, 8, 21, 24, 55, 58, 63, 144, 147, 152, 165, 168, 377, 380, 385, 398, 401, 432, 435, 440, 987, 990, 995, 1008, 1011, 1042, 1045, 1050, 1131, 1134, 1139, 1152, 1155, 2584, 2587, 2592, 2605, 2608, 2639, 2642, 2647, 2728, 2731, 2736, 2749, 2752, 2961, 2964

Offset

1,1

Links

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

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, 1], {n, 48}] (* Robert G. Wilson v, Feb 09 2005 *)

Crossrefs

Cf. A101385.

Sequence in context: A171437 A075719 A245205 * A334136 A046815 A203848

Adjacent sequences: A101640 A101641 A101642 * A101644 A101645 A101646

Keyword

nonn

Author

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

Extensions

More terms from David Applegate, Jan 26 2005

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

Status

approved