A305495 Positions of 0 in the fixed point of the morphism 0->120, 1->110, 2->100 applied to 1 (as in A305490).

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

Offset: 1

Author

Clark Kimberling, Jun 02 2018

Keywords

• nonn
• easy

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.

Examples

			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
		

Links

• Clark Kimberling, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A305490, A116178, A305496.

Programs

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 *)