|
Search: id:A101345
|
|
|
| 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
|
|
|
Search completed in 0.002 seconds
|
