A284589 Positions of 0 in A284588; complement of A284590.

2, 4, 7, 9, 11, 13, 16, 18, 21, 23, 25, 27, 30, 32, 35, 37, 40, 42, 45, 47, 49, 51, 54, 56, 59, 61, 63, 65, 68, 70, 73, 75, 77, 79, 82, 84, 87, 89, 91, 93, 96, 98, 101, 103, 106, 108, 111, 113, 115, 117, 120, 122, 125, 127, 129, 131, 134, 136, 139, 141, 144

Offset

1,1

Comments

Conjecture: a(n)/n -> (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, 0, 1}}] &, {0}, 7] (* A284588 *)
Flatten[Position[s, 0]]  (* A284589 *)
Flatten[Position[s, 1]]  (* A284590 *)

Crossrefs

Cf. A284534, A284588, A284590.

Sequence in context: A125883 A022848 A287723 * A020904 A043000 A160822

Adjacent sequences: A284586 A284587 A284588 * A284590 A284591 A284592

Keyword

nonn,easy

Author

Clark Kimberling, Apr 07 2017

Status

approved