A285302 Positions of 0 in A285301, complement of A086398.

2, 3, 4, 6, 8, 10, 12, 13, 14, 16, 18, 19, 20, 22, 24, 25, 26, 28, 30, 31, 32, 34, 36, 38, 40, 41, 42, 44, 46, 47, 48, 50, 52, 54, 56, 57, 58, 60, 62, 63, 64, 66, 68, 70, 72, 73, 74, 76, 78, 79, 80, 82, 84, 86, 88, 89, 90, 92, 94, 95, 96, 98, 100, 101, 102

Offset

1,1

Comments

Conjecture: -2 < n*r - a(n) < 2 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, A284301 = 100010..., in which the positions of 0 are 2,3,4,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 0, 0, 0}}] &, {0}, 10]; (* A285301 *)
u = Flatten[Position[s, 0]];  (* A285302 *)
v = Flatten[Position[s, 1]];  (* A086398 *)

Crossrefs

Cf. A284301, A086398.

Sequence in context: A184103 A352318 A284038 * A026281 A066994 A081000

Adjacent sequences: A285299 A285300 A285301 * A285303 A285304 A285305

Keyword

nonn,easy

Author

Clark Kimberling, Apr 25 2017

Status

approved