A285416 Positions of 1 in A285414; complement of A285415.

1, 2, 4, 6, 7, 8, 9, 11, 13, 14, 16, 19, 21, 22, 24, 26, 27, 29, 32, 34, 35, 37, 39, 40, 41, 42, 44, 46, 47, 48, 49, 51, 53, 54, 55, 56, 58, 60, 61, 63, 66, 68, 69, 71, 73, 74, 76, 79, 81, 82, 84, 86, 87, 88, 89, 91, 93, 94, 96, 99, 101, 102, 104, 106, 107

Offset

1,2

Links

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

Example

As a word, A285414 = 1101011110..., in which 1 is in positions 1,2,4,6,7,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 0}}] &, {0}, 11] (* A285414 *)
Flatten[Position[s, 0]]  (* A285415 *)
Flatten[Position[s, 1]]  (* A285416 *)

Crossrefs

Cf. A285412, A285414, A285415.

Sequence in context: A047295 A039045 A050481 * A284958 A014530 A268445

Adjacent sequences: A285413 A285414 A285415 * A285417 A285418 A285419

Keyword

nonn,easy

Author

Clark Kimberling, Apr 28 2017

Status

approved