A285359 Positions of 0 in A285358; complement of A285360.

3, 7, 10, 13, 17, 21, 24, 27, 31, 34, 37, 41, 44, 47, 51, 55, 58, 61, 65, 69, 72, 75, 79, 82, 85, 89, 92, 95, 99, 103, 106, 109, 113, 116, 119, 123, 126, 129, 133, 137, 140, 143, 147, 150, 153, 157, 160, 163, 167, 171, 174, 177, 181, 185, 188, 191, 195, 198

Offset

1,1

Comments

Conjecture: -1 < n*r - a(n) < 1 for n>=1, where r = 2 + sqrt(2).

Links

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

Example

As a word, A285358 = 1101110..., in which 0 is in positions 3,7,10,13,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 0, 1}}] &, {0}, 10] (* A285358 *)
Flatten[Position[s, 0]]  (* A285359 *)
Flatten[Position[s, 1]]  (* A285360 *)

Crossrefs

Cf. A284358, A285360.

Sequence in context: A297466 A198267 A298786 * A255607 A310185 A339620

Adjacent sequences: A285356 A285357 A285358 * A285360 A285361 A285362

Keyword

nonn,easy

Author

Clark Kimberling, Apr 25 2017

Status

approved