|
|
A305495
|
|
Positions of 0 in the fixed point of the morphism 0->120, 1->110, 2->100 applied to 1 (as in A305490).
|
|
3
|
|
|
3, 6, 9, 12, 15, 18, 21, 23, 24, 27, 30, 33, 36, 39, 42, 45, 48, 50, 51, 54, 57, 60, 63, 66, 69, 72, 75, 77, 78, 81, 84, 87, 90, 93, 96, 99, 102, 104, 105, 108, 111, 114, 117, 120, 123, 126, 129, 131, 132, 135, 138, 141, 144, 147, 150, 153, 156, 158, 159
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Let u, v, w be the position sequences of 0,1,2 in A305490. They partition the positive integers, and v is also the position sequence of 0 in Stewart's choral sequence, A116178.
|
|
LINKS
|
|
|
EXAMPLE
|
Fixed point: (1, 1, 0, 1, 1, 0, 1, 2, 0, 1, 1, 0, 1, 1, 0, 1, 2, 0, 1, 1, ... )
Positions of 0: (3,6,9,12,15,18,21,23, ... ) = A305495
Positions of 1: (1,2,4,5,7,10,11,13,14, ... ) = A189636
Positions of 2: (8,17,26,35,44,53,62,68, ... ) = A305496
|
|
MATHEMATICA
|
z = 120;
t = Nest[Flatten[# /. {0 -> {1, 2, 0}, 1 -> {1, 1, 0},
2 -> {1, 0, 0}}] &, {0}, 9]; (* A305490 *)
Take[Flatten[Position[t, 0]], z] (* A305495 *)
Take[Flatten[Position[t, 1]], z] (* A116178 *)
Take[Flatten[Position[t, 2]], z] (* A305496 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|