A284535 Positions of 1 in A284533; complement of A284534.

2, 4, 5, 7, 9, 10, 12, 14, 16, 18, 19, 21, 23, 24, 26, 28, 29, 31, 33, 34, 36, 38, 40, 42, 43, 45, 47, 48, 50, 52, 54, 56, 57, 59, 61, 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, 106, 108, 109, 111

Offset

1,1

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}, 6] (* A284533 *)
Flatten[Position[s, 0]]  (* A284534 *)
Flatten[Position[s, 1]]  (* A284535 *)

Crossrefs

Cf. A284533, A284534, A284590.

Sequence in context: A286667 A083120 A001614 * A244222 A360531 A050731

Adjacent sequences: A284532 A284533 A284534 * A284536 A284537 A284538

Keyword

nonn,easy

Author

Clark Kimberling, Apr 07 2017

Status

approved