|
| |
|
|
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
|
Table of n, a(n) for n=1..55.
|
|
|
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
|
| |
|
|
