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,1

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.

Formula

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

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

Crossrefs

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

Sequence in context: A155723 A095277 A185717 * A182338 A267415 A140516

Adjacent sequences: A189634 A189635 A189636 * A189638 A189639 A189640

Keyword

nonn

Author

Clark Kimberling, Apr 24 2011

Status

approved