A284937 Positions of 1 in A284935; complement of A284936.

2, 3, 4, 7, 8, 11, 12, 16, 18, 19, 20, 23, 24, 28, 30, 31, 32, 35, 36, 40, 42, 44, 45, 46, 50, 51, 52, 55, 56, 59, 60, 64, 66, 67, 68, 71, 72, 76, 78, 80, 81, 82, 86, 87, 88, 91, 92, 95, 96, 100, 102, 103, 104, 107, 108, 112, 114, 116, 117, 118, 122, 123

Offset

1,1

Comments

Conjecture: 2n - a(n) is in {0,1,2} for n >= 1.

Links

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

Example

As a word, A284935 = 011100..., in which 1 is in positions 2,3,4,7,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 1, 0, 0}}] &, {0}, 6] (* A284935 *)
Flatten[Position[s, 0]]  (* A284936 *)
Flatten[Position[s, 1]]  (* A284937 *)

Crossrefs

Cf. A284936, A284937.

Sequence in context: A240767 A342028 A368402 * A271441 A328421 A003508

Adjacent sequences: A284934 A284935 A284936 * A284938 A284939 A284940

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Status

approved