Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A101345
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A101345 a(n) = Knuth's Fibonacci (or circle) product "2 o n". +0
2
5, 8, 13, 18, 21, 26, 29, 34, 39, 42, 47, 52, 55, 60, 63, 68, 73, 76, 81, 84, 89, 94, 97, 102, 107, 110, 115, 118, 123, 128, 131, 136, 141, 144, 149, 152, 157, 162, 165, 170, 173, 178, 183, 186, 191, 196, 199, 204, 207, 212, 217, 220, 225, 228, 233, 238, 241, 246 (list; graph; listen)
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]]; 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[y]}, {j, Length[z]}]]; (from Robert G. Wilson v Feb 04 2005)

Table[kfp[2, n], {n, 60}] (from Robert G. Wilson v Feb 04 2005)

CROSSREFS

Second row of array in A101330.

Sequence in context: A003655 A082823 A143747 this_sequence A097404 A020687 A035423

Adjacent sequences: A101342 A101343 A101344 this_sequence A101346 A101347 A101348

KEYWORD

nonn

AUTHOR

N. J. A. Sloane (njas(AT)research.att.com), Jan 26 2005

EXTENSIONS

More terms from David Applegate (david(AT)research.att.com), Jan 26 2005

More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 04 2005

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified November 29 12:42 EST 2009. Contains 167602 sequences.


AT&T Labs Research