A284774 Positions of 1 in A284772; complement of A284773.

2, 5, 8, 10, 13, 16, 18, 21, 24, 27, 30, 32, 35, 38, 40, 43, 46, 49, 52, 54, 57, 60, 62, 65, 68, 70, 73, 76, 78, 81, 84, 87, 90, 92, 95, 98, 100, 103, 106, 109, 112, 114, 117, 120, 122, 125, 128, 130, 133, 136, 138, 141, 144, 147, 150, 152, 155, 158, 160

Offset

1,1

Comments

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

Links

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

Example

As a word, A284772 = 010010..., in which 1 is in positions 2,5,...

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, A284773.

Sequence in context: A182769 A126281 A117630 * A309095 A022843 A054088

Adjacent sequences: A284771 A284772 A284773 * A284775 A284776 A284777

Keyword

nonn,easy

Author

Clark Kimberling, Apr 14 2017

Status

approved