A285404 Positions of 0 in A285403; complement of A285405.

5, 6, 12, 13, 19, 20, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39, 45, 46, 52, 53, 59, 60, 66, 67, 73, 74, 76, 77, 79, 80, 82, 83, 85, 86, 92, 93, 99, 100, 106, 107, 113, 114, 120, 121, 123, 124, 126, 127, 129, 130, 132, 133, 139, 140, 146, 147, 153, 154, 160

Offset

1,1

Links

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

Example

As a word, A285403 = 1111001..., in which 0 is in positions 5,6,12,13,19,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 1}}] &, {0}, 11] (* A285403 *)
Flatten[Position[s, 0]]  (* A285404 *)
Flatten[Position[s, 1]]  (* A285405 *)

Crossrefs

Cf. A285401, A285403, A285405.

Sequence in context: A273158 A099641 A207189 * A047319 A244368 A185031

Adjacent sequences: A285401 A285402 A285403 * A285405 A285406 A285407

Keyword

nonn,easy

Author

Clark Kimberling, Apr 27 2017

Status

approved