A189637 Positions of 1 in A116178; complement of A189636.

3, 6, 8, 9, 12, 15, 17, 18, 21, 23, 24, 26, 27, 30, 33, 35, 36, 39, 42, 44, 45, 48, 50, 51, 53, 54, 57, 60, 62, 63, 66, 68, 69, 71, 72, 75, 77, 78, 80, 81, 84, 87, 89, 90, 93, 96, 98, 99, 102, 104, 105, 107, 108, 111, 114, 116, 117, 120, 123, 125, 126, 129, 131, 132, 134, 135, 138, 141, 143, 144, 147, 149, 150, 152, 153, 156, 158, 159, 161, 162, 165, 168, 170, 171, 174

Offset: 1

Author

Clark Kimberling, Apr 24 2011

Keywords

• nonn

Comments

See A116178.

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000
• F. M. Dekking, Permutations of N generated by left-right filling algorithms, arXiv:2001.08915 [math.CO], 2020.

Crossrefs

Cf. A116178, A189636, A189638, A254046, A340407.

Programs

Mathematica

t = Nest[Flatten[# /. {0->{0,0,1}, 1->{0,1,1}}] &, {0}, 5] (* A116178 *)
f[n_] := t[[n]]
Flatten[Position[t, 0]] (* A189636 *)
Flatten[Position[t, 1]] (* A189637 *)
s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;
Table[s[n], {n, 1, 120}] (* A189638 *)

Formula

A340407(a(n)) = A254046(a(n)). Discovered with help from sequencedb.net. - Thomas Scheuerle, Jun 20 2022