A284655 Positions of 1 in A284653; complement of A284654.

2, 3, 5, 7, 8, 11, 12, 14, 15, 17, 18, 21, 22, 24, 26, 27, 29, 31, 32, 35, 36, 38, 40, 41, 43, 45, 46, 49, 50, 52, 53, 55, 56, 59, 60, 62, 64, 65, 68, 69, 71, 73, 74, 77, 78, 80, 81, 83, 84, 87, 88, 90, 92, 93, 95, 97, 98, 101, 102, 104, 105, 107, 108, 111

Offset

1,1

Comments

Conjecture: -1 < n*sqrt(3) - a(n) < 2 for n >= 1.

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 1, 1, 0}}] &, {0}, 6] (* A284653 *)
Flatten[Position[s, 0]]  (* A284654 *)
Flatten[Position[s, 1]]  (* A284655 *)

Crossrefs

Cf. A284653, A284655, A284656.

Sequence in context: A211777 A189299 A028780 * A083028 A370867 A281015

Adjacent sequences: A284652 A284653 A284654 * A284656 A284657 A284658

Keyword

nonn,easy

Author

Clark Kimberling, Apr 07 2017

Status

approved