A285135 Positions of 1 in A285133; complement of A285134.

4, 5, 10, 11, 16, 17, 19, 21, 23, 28, 29, 31, 33, 38, 42, 43, 48, 49, 54, 55, 60, 61, 63, 65, 67, 72, 73, 75, 77, 82, 86, 87, 92, 93, 98, 99, 104, 105, 107, 109, 111, 116, 117, 119, 121, 126, 130, 131, 133, 135, 137, 142, 146, 147, 149, 151, 153, 158, 162

Offset

1,1

Comments

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

Links

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

Example

As a word, A285133 = 000110..., in which 1 is in positions 4,5,10,11,16,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 0, 1}}] &, {0}, 12]; (* A285133 *)
Flatten[Position[s, 0]];  (* A285134 *)
Flatten[Position[s, 1]];  (* A285135 *)

Crossrefs

Cf. A285133, A285134, A285136.

Sequence in context: A102858 A102857 A102856 * A037353 A269003 A246390

Adjacent sequences: A285132 A285133 A285134 * A285136 A285137 A285138

Keyword

nonn,easy

Author

Clark Kimberling, Apr 20 2017

Status

approved