A284936 Positions of 0 in A284935; complement of A284937.

1, 5, 6, 9, 10, 13, 14, 15, 17, 21, 22, 25, 26, 27, 29, 33, 34, 37, 38, 39, 41, 43, 47, 48, 49, 53, 54, 57, 58, 61, 62, 63, 65, 69, 70, 73, 74, 75, 77, 79, 83, 84, 85, 89, 90, 93, 94, 97, 98, 99, 101, 105, 106, 109, 110, 111, 113, 115, 119, 120, 121, 125

Offset

1,2

Comments

Conjecture: a(n) - 2n + 1 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 0 is in positions 1,5,6,9,10,...

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. A284935, A284937.

Sequence in context: A049329 A195925 A304432 * A188191 A117827 A246784

Adjacent sequences: A284933 A284934 A284935 * A284937 A284938 A284939

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Status

approved