|
Search: id:A101642
|
|
|
| A101642 |
|
a(n) = Knuth's Fibonacci (or circle) product "3 o n". |
|
+0
2
|
|
| 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; 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[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: A070131 A030782 A063849 this_sequence A019535 A093023 A057097
Adjacent sequences: A101639 A101640 A101641 this_sequence A101643 A101644 A101645
|
|
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
|
