A285164 Positions of 1 in A285162; complement of A285163.

1, 3, 7, 8, 11, 12, 15, 16, 17, 19, 21, 25, 26, 29, 30, 33, 34, 35, 39, 40, 41, 45, 46, 47, 49, 51, 55, 56, 59, 60, 61, 63, 67, 68, 71, 72, 75, 76, 77, 81, 82, 83, 85, 87, 91, 92, 95, 96, 97, 99, 103, 104, 107, 108, 111, 112, 113, 117, 118, 119, 121, 123

Offset

1,2

Comments

Conjecture: a(n)/n -> 2.

Links

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

Example

As a word, A285142 = 101000110..., in which 1 is in positions 1,3,7,8,11,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1, 1}}] &, {0}, 10]; (* A285159 *)
Flatten[Position[s, 0]];  (* A285160 *)
Flatten[Position[s, 1]];  (* A285161 *)

Crossrefs

Cf. A285159, A285162, A285163.

Sequence in context: A283759 A261415 A331547 * A106753 A174871 A062863

Adjacent sequences: A285161 A285162 A285163 * A285165 A285166 A285167

Keyword

nonn,easy

Author

Clark Kimberling, Apr 21 2017

Status

approved