A285500 Positions of 1 in A285498; complement of A285499.

1, 2, 3, 4, 7, 9, 10, 11, 12, 13, 14, 17, 19, 20, 21, 22, 23, 24, 27, 29, 30, 31, 32, 33, 34, 37, 39, 40, 43, 47, 51, 55, 57, 58, 59, 60, 63, 65, 66, 69, 73, 75, 76, 77, 78, 81, 83, 84, 85, 86, 87, 88, 91, 93, 94, 95, 96, 97, 98, 101, 103, 104, 105, 106, 107

Offset

1,2

Links

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

Example

As a word, A285498 = 111100101..., in which 1 is in positions 1,2,3,4,7,...

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, A285499.

Sequence in context: A101128 A182802 A172024 * A119345 A086391 A120127

Adjacent sequences: A285497 A285498 A285499 * A285501 A285502 A285503

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved