A284657 Positions of 0 in A284656; complement of A284658.

2, 5, 6, 9, 11, 14, 16, 19, 20, 23, 26, 29, 30, 33, 35, 38, 39, 42, 44, 47, 48, 51, 54, 57, 58, 61, 63, 66, 68, 71, 72, 75, 77, 80, 82, 85, 86, 89, 92, 95, 96, 99, 101, 104, 106, 109, 110, 113, 115, 118, 120, 123, 124, 127, 130, 133, 134, 137, 139, 142, 143

Offset

1,1

Comments

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

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 1, 1, 0}}] &, {0}, 7] (* A284656 *)
Flatten[Position[s, 0]]  (* A284657 *)
Flatten[Position[s, 1]]  (* A284658 *)

Crossrefs

Cf. A284654, A284656, A284658.

Sequence in context: A033161 A024516 A286341 * A230506 A236072 A055938

Adjacent sequences: A284654 A284655 A284656 * A284658 A284659 A284660

Keyword

nonn,easy

Author

Clark Kimberling, Apr 08 2017

Status

approved