A285134 Positions of 0 in A285133; complement of A285135.

1, 2, 3, 6, 7, 8, 9, 12, 13, 14, 15, 18, 20, 22, 24, 25, 26, 27, 30, 32, 34, 35, 36, 37, 39, 40, 41, 44, 45, 46, 47, 50, 51, 52, 53, 56, 57, 58, 59, 62, 64, 66, 68, 69, 70, 71, 74, 76, 78, 79, 80, 81, 83, 84, 85, 88, 89, 90, 91, 94, 95, 96, 97, 100, 101, 102

Offset

1,2

Comments

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

Links

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

Example

As a word, A285133 = 000110..., in which 0 is in positions 1,2,3,6,7,...

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, A285135, A285136.

Sequence in context: A047246 A039029 A037460 * A161824 A102806 A275884

Adjacent sequences: A285131 A285132 A285133 * A285135 A285136 A285137

Keyword

nonn,easy

Author

Clark Kimberling, Apr 20 2017

Status

approved