A285496 Positions of 0 in A285495; complement of A285497.

1, 2, 4, 5, 6, 8, 9, 10, 12, 13, 14, 16, 21, 22, 24, 27, 28, 30, 31, 32, 34, 35, 36, 38, 39, 40, 42, 43, 44, 46, 47, 48, 50, 55, 56, 58, 61, 62, 64, 65, 66, 68, 69, 70, 72, 73, 74, 76, 77, 78, 80, 81, 82, 84, 89, 90, 92, 95, 96, 98, 99, 100, 102, 103, 104

Offset

1,2

Links

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

Example

As a word, A285495 = 00100010..., in which 0 is in positions 1,2,4,5,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 1, 0}}] &, {0}, 10] (* A285495 *)
Flatten[Position[s, 0]]  (* A285496 *)
Flatten[Position[s, 1]]  (* A285497 *)

Crossrefs

Cf. A285495, A285497, A285498.

Sequence in context: A279607 A292636 A079709 * A247778 A003511 A059567

Adjacent sequences: A285493 A285494 A285495 * A285497 A285498 A285499

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved