A285346 Positions of 0 in A285345; complement of A285347.

3, 4, 7, 8, 10, 12, 15, 16, 19, 20, 22, 24, 27, 28, 30, 33, 34, 36, 39, 40, 43, 44, 46, 48, 51, 52, 55, 56, 58, 60, 63, 64, 66, 69, 70, 72, 75, 76, 79, 80, 82, 84, 87, 88, 90, 93, 94, 97, 98, 100, 102, 105, 106, 108, 111, 112, 115, 116, 118, 120, 123, 124

Offset

1,1

Comments

Conjecture: 2n + 1 - a(n) is in {0,1} for n>=1; see A285351.

Links

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

Example

As a word, A285345 = 1100110..., in which 0 is in positions 3,4,7,8,10,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 0, 0}}] &, {0}, 10] (* A285345 *)
Flatten[Position[s, 0]]  (* A285346 *)
Flatten[Position[s, 1]]  (* A285347 *)

Crossrefs

Cf. A285345, A285347, A285351.

Sequence in context: A187835 A184820 A189521 * A244736 A138971 A189750

Adjacent sequences: A285343 A285344 A285345 * A285347 A285348 A285349

Keyword

nonn,easy

Author

Clark Kimberling, Apr 25 2017

Status

approved