A285254 Positions of 1 in A285252; complement of A285253.

1, 4, 6, 7, 10, 12, 14, 16, 17, 20, 22, 23, 25, 28, 30, 31, 34, 36, 38, 40, 41, 43, 46, 48, 49, 52, 54, 55, 58, 60, 61, 64, 66, 68, 70, 71, 74, 76, 77, 79, 82, 84, 85, 88, 90, 92, 94, 95, 97, 100, 102, 103, 106, 108, 110, 112, 113, 115, 118, 120, 121, 124

Offset

1,2

Comments

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

See the comments of A285250 for a proof of this conjecture. - Michel Dekking, Oct 07 2020

Links

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

Example

As a word, A285252 = 100101100101..., in which 1 is in positions 1,4,6,7,10,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 0, 1}}] &, {0}, 11]; (* A285252 *)
Flatten[Position[s, 0]];  (* A285253 *)
Flatten[Position[s, 1]];  (* A285254 *)

Crossrefs

Cf. A285250, A285252, A285253.

Sequence in context: A191920 A047234 A089532 * A326227 A103401 A285091

Adjacent sequences: A285251 A285252 A285253 * A285255 A285256 A285257

Keyword

nonn,easy

Author

Clark Kimberling, Apr 23 2017

Status

approved