|
| |
|
|
A119995
|
|
Fixed point of the morphism a -> {a, a + 1, Ceiling(Log(a + 1)}, beginning with 0.
|
|
0
|
|
|
|
0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 2, 1, 2, 1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 3, 2, 3, 4, 2, 2, 3, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 2, 1, 2, 1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 3, 2, 3, 4, 2, 2, 3, 2, 1, 2, 1, 2, 3, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,5
|
|
|
COMMENTS
|
First occurrance of k: 1, 2, 5, 14, 41, 122, 365, 1094, 3281, 9842, 29525, 88574, 265721, 797162, 2391485, ...,.
|
|
|
LINKS
|
Table of n, a(n) for n=0..104.
|
|
|
MATHEMATICA
|
Nest[Flatten[ #1 /. a_Integer -> {a, a + 1, Ceiling[Log[10, a + 1]]}] &, {0}, 5]
|
|
|
CROSSREFS
|
Sequence in context: A098381 A030372 A065363 * A062756 A174695 A165577
Adjacent sequences: A119992 A119993 A119994 * A119996 A119997 A119998
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Robert G. Wilson v, Aug 02 2006
|
|
|
STATUS
|
approved
|
| |
|
|
