|
|
A007601
|
|
Positions where A007600 increases.
(Formerly M0525)
|
|
2
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
A000792(n-1)+1 unless n=1. [Harry Altman, May 17 2011]
|
|
REFERENCES
|
R. Honsberger, Mathematical Gems III, M.A.A., 1985, p. 225.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
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}] (* Robert G. Wilson v, Jan 15 2005 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|