A285251 Positions of 1 in A285249; complement of A285250.

2, 4, 5, 7, 10, 12, 13, 16, 18, 20, 22, 23, 25, 28, 30, 31, 34, 36, 37, 40, 42, 43, 46, 48, 50, 52, 53, 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, 109, 112, 114, 115, 118, 120, 122, 124

Offset

1,1

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, A285249 = 010110100101..., in which 1 is in positions 2,4,5,7,10,12,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 0, 1}}] &, {0}, 12]; (* A285249 *)
Flatten[Position[s, 0]];  (* A285250 *)
Flatten[Position[s, 1]];  (* A285251 *)

Crossrefs

Cf. A285249, A285250, A285252.

Sequence in context: A005653 A188468 A364132 * A325124 A231013 A231008

Adjacent sequences: A285248 A285249 A285250 * A285252 A285253 A285254

Keyword

nonn,easy

Author

Clark Kimberling, Apr 23 2017

Status

approved