|
Search: id:A007601
|
|
| |
|
| 1, 2, 3, 4, 5, 7, 10, 13, 19, 28, 37, 55, 82, 109, 163, 244, 325, 487, 730, 973, 1459, 2188, 2917, 4375, 6562, 8749, 13123, 19684, 26245, 39367, 59050, 78733, 118099, 177148, 236197, 354295, 531442, 708589, 1062883, 1594324, 2125765, 3188647
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
REFERENCES
|
R. Honsberger, Mathematical Gems III, M.A.A., 1985, p. 225.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
|
|
MATHEMATICA
|
f[n_] := Min[ Table[2p + 3Ceiling[Log[3, n/2^p]], {p, 0, 2}]]; g[1] = 1; g[n_] := g[n] = Block[{k = g[n - 1]}, While[ f[k] != n, k++ ]; k]; Table[ g[n], {n, 2, 15}] (from Robert G. Wilson v Jan 15 2005)
|
|
CROSSREFS
|
Adjacent sequences: A007598 A007599 A007600 this_sequence A007602 A007603 A007604
Sequence in context: A136422 A018127 A017835 this_sequence A087830 A039857 A017836
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, Robert G. Wilson v (rgwv(AT)rgwv.com), Mira Bernstein (mira(AT)math.berkeley.edu)
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 15 2005
|
|
|
Search completed in 0.002 seconds
|
