A285499 Positions of 0 in A285498; complement of A285500.

5, 6, 8, 15, 16, 18, 25, 26, 28, 35, 36, 38, 41, 42, 44, 45, 46, 48, 49, 50, 52, 53, 54, 56, 61, 62, 64, 67, 68, 70, 71, 72, 74, 79, 80, 82, 89, 90, 92, 99, 100, 102, 109, 110, 112, 119, 120, 122, 129, 130, 132, 135, 136, 138, 139, 140, 142, 143, 144, 146

Offset

1,1

Links

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

Example

As a word, A285498 = 111100101..., in which 0 is in positions 5,6,8,15,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 1, 0}}] &, {0}, 11] (* A285498 *)
Flatten[Position[s, 0]]  (* A285499 *)
Flatten[Position[s, 1]]  (* A285500 *)

Crossrefs

Cf. A285495, A285498, A285500.

Sequence in context: A067527 A105057 A058336 * A110461 A242913 A191212

Adjacent sequences: A285496 A285497 A285498 * A285500 A285501 A285502

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved