A284590 Positions of 1 in A284588; complement of A284589.

1, 3, 5, 6, 8, 10, 12, 14, 15, 17, 19, 20, 22, 24, 26, 28, 29, 31, 33, 34, 36, 38, 39, 41, 43, 44, 46, 48, 50, 52, 53, 55, 57, 58, 60, 62, 64, 66, 67, 69, 71, 72, 74, 76, 78, 80, 81, 83, 85, 86, 88, 90, 92, 94, 95, 97, 99, 100, 102, 104, 105, 107, 109, 110

Offset

1,2

Comments

Conjecture: a(n)/n -> sqrt(3).

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. A284535, A284588, A284590.

Sequence in context: A187685 A300730 A191777 * A287724 A024705 A190192

Adjacent sequences: A284587 A284588 A284589 * A284591 A284592 A284593

Keyword

nonn,easy

Author

Clark Kimberling, Apr 07 2017

Status

approved