login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

First row of array in A101385.
1

%I #9 Mar 28 2015 17:48:36

%S 3,8,21,24,55,58,63,144,147,152,165,168,377,380,385,398,401,432,435,

%T 440,987,990,995,1008,1011,1042,1045,1050,1131,1134,1139,1152,1155,

%U 2584,2587,2592,2605,2608,2639,2642,2647,2728,2731,2736,2749,2752,2961,2964

%N First row of array in A101385.

%t 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 *)

%t Table[ kfpv[n, 1], {n, 48}] (* _Robert G. Wilson v_, Feb 09 2005 *)

%Y Cf. A101385.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Jan 25 2005, Jan 27 2005

%E More terms from _David Applegate_, Jan 26 2005

%E More terms from _Robert G. Wilson v_, Feb 09 2005