This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A101642 a(n) = Knuth's Fibonacci (or circle) product "3 o n". 1
 8, 13, 21, 29, 34, 42, 47, 55, 63, 68, 76, 84, 89, 97, 102, 110, 118, 123, 131, 136, 144, 152, 157, 165, 173, 178, 186, 191, 199, 207, 212, 220, 228, 233, 241, 246, 254, 262, 267, 275, 280, 288, 296, 301, 309, 317, 322, 330, 335, 343, 351, 356, 364, 369, 377 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS 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]]; kfp[n_, m_] := Block[{y = Reverse[ IntegerDigits[ zeck[ n]]], z = Reverse[ IntegerDigits[ zeck[ m]]]}, Sum[ y[[i]]*z[[j]]*Fibonacci[i + j + 2], {i, Length[z1]}, {j, Length[z2]}]]; (from Robert G. Wilson v Feb 04 2005) Table[ kfp[3, n], {n, 50}] (from Robert G. Wilson v Feb 04 2005) CROSSREFS Third row of array in A101330. Sequence in context: A219721 A176209 A063849 * A195984 A019535 A205704 Adjacent sequences:  A101639 A101640 A101641 * A101643 A101644 A101645 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 04 2005 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .