A284658 Positions of 1 in A284656; complement of A284657.

1, 3, 4, 7, 8, 10, 12, 13, 15, 17, 18, 21, 22, 24, 25, 27, 28, 31, 32, 34, 36, 37, 40, 41, 43, 45, 46, 49, 50, 52, 53, 55, 56, 59, 60, 62, 64, 65, 67, 69, 70, 73, 74, 76, 78, 79, 81, 83, 84, 87, 88, 90, 91, 93, 94, 97, 98, 100, 102, 103, 105, 107, 108, 111

Offset

1,2

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}, 7] (* A284656 *)
Flatten[Position[s, 0]]  (* A284657 *)
Flatten[Position[s, 1]]  (* A284658 *)

Crossrefs

Cf. A284654, A284656, A284657.

Sequence in context: A242921 A091934 A178482 * A286340 A024515 A187835

Adjacent sequences: A284655 A284656 A284657 * A284659 A284660 A284661

Keyword

nonn,easy

Author

Clark Kimberling, Apr 08 2017

Status

approved