A285161 Positions of 1 in A285159; complement of A285160.

3, 4, 5, 9, 10, 11, 13, 15, 19, 20, 23, 24, 25, 27, 31, 32, 35, 36, 37, 39, 43, 44, 47, 48, 51, 52, 53, 57, 58, 59, 63, 64, 65, 67, 69, 73, 74, 77, 78, 79, 81, 85, 86, 89, 90, 91, 93, 97, 98, 101, 102, 105, 106, 107, 109, 111, 115, 116, 119, 120, 123, 124

Offset

1,1

Comments

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

Links

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

Example

As a word, A285142 = 001110..., in which 1 is in positions 3,4,5,9,...

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, A285160, A285162.

Sequence in context: A132141 A246303 A362461 * A329781 A139531 A047249

Adjacent sequences: A285158 A285159 A285160 * A285162 A285163 A285164

Keyword

nonn,easy

Author

Clark Kimberling, Apr 21 2017

Status

approved