A284945 Positions of 0 in A284944; complement of A284946.

1, 6, 10, 14, 18, 19, 24, 28, 32, 33, 38, 42, 46, 47, 52, 56, 60, 61, 63, 68, 72, 76, 80, 81, 86, 90, 94, 95, 100, 104, 108, 109, 111, 116, 120, 124, 128, 129, 134, 138, 142, 143, 148, 152, 156, 157, 159, 164, 168, 172, 176, 177, 182, 186, 190, 191, 196, 200

Offset

1,2

Comments

Conjecture: -4 < n*r - a(n) < 3 for n >= 1, where r = 2 + sqrt(2).

Links

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

Example

As a word, A284938 = 011110..., in which 0 is in positions 1,6,10,14,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 1, 1, 0}}] &, {0}, 6] (* A284944 *)
Flatten[Position[s, 0]]  (* A284945 *)
Flatten[Position[s, 1]]  (* A284946 *)

Crossrefs

Cf. A284944, A284946.

Sequence in context: A315168 A167200 A077667 * A091577 A115036 A332766

Adjacent sequences: A284942 A284943 A284944 * A284946 A284947 A284948

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Status

approved