login
A101643
First row of array in A101385.
1
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
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
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