A284773 Positions of 0 in A284772; complement of A284774.

1, 3, 4, 6, 7, 9, 11, 12, 14, 15, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 33, 34, 36, 37, 39, 41, 42, 44, 45, 47, 48, 50, 51, 53, 55, 56, 58, 59, 61, 63, 64, 66, 67, 69, 71, 72, 74, 75, 77, 79, 80, 82, 83, 85, 86, 88, 89, 91, 93, 94, 96, 97, 99, 101, 102

Offset

1,2

Comments

Conjecture: -1 < n*r - a(n) < 2 for n >= 1, where r = (3+sqrt(3))/3.

Links

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

Example

As a word, A284772 = 010010..., in which 0 is in positions 1,3,4,6,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 1, 0}}] &, {0}, 6] (* A284772 *)
Flatten[Position[s, 0]]  (* A284773 *)
Flatten[Position[s, 1]]  (* A284774 *)

Crossrefs

Cf. A284772, A284774.

Sequence in context: A059555 A186539 A054385 * A172272 A056576 A182770

Adjacent sequences: A284770 A284771 A284772 * A284774 A284775 A284776

Keyword

nonn,easy

Author

Clark Kimberling, Apr 14 2017

Status

approved