The OEIS is supported by the many generous donors to the OEIS Foundation.

 Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 60th year, we have over 367,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”). Other ways to Give
 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A101645 Third row of array in A101385. 1
 21, 144, 987, 1008, 6765, 6786, 6909, 46368, 46389, 46512, 47355, 47376, 317811, 317832, 317955, 318798, 318819, 324576, 324597, 324720, 2178309, 2178330, 2178453, 2179296, 2179317, 2185074, 2185095, 2185218, 2224677, 2224698 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Table of n, a(n) for n=1..30. 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, 3], {n, 30}] (* Robert G. Wilson v, Feb 09 2005 *) CROSSREFS Cf. A101385. Sequence in context: A003702 A221785 A301866 * A230692 A267992 A060493 Adjacent sequences: A101642 A101643 A101644 * A101646 A101647 A101648 KEYWORD nonn,easy 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 2 20:14 EST 2023. Contains 367526 sequences. (Running on oeis4.)