A285306 Positions of 0 in A285305; complement of A285307.

2, 3, 6, 8, 10, 11, 14, 15, 18, 20, 21, 24, 26, 27, 30, 32, 34, 35, 38, 39, 42, 44, 46, 47, 50, 51, 54, 56, 57, 60, 62, 64, 65, 68, 69, 72, 74, 75, 78, 80, 82, 83, 86, 87, 90, 92, 93, 96, 98, 99, 102, 104, 106, 107, 110, 111, 114, 116, 118, 119, 122, 123

Offset

1,1

Comments

Let s(n) = 2n - a(n). It appears that s(n) is a 01-sequence with 0 in positions given by A189665 and 1 in positions given by A189660.

Links

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

Example

As a word, A285305 = 1001101..., in which 0 is in positions 2,3,6,8,10,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 1, 1}}] &, {0}, 10]; (* A285274 *)
Flatten[Position[s, 0]];  (* A285275 *)
Flatten[Position[s, 1]];  (* A285276 *)

Crossrefs

Cf. A189660, A189665, A285305, A285307.

Sequence in context: A122479 A351125 A334747 * A047403 A286051 A093193

Adjacent sequences: A285303 A285304 A285305 * A285307 A285308 A285309

Keyword

nonn,easy

Author

Clark Kimberling, Apr 25 2017

Status

approved