A285619 Positions of 1 in A285617; complement of A285618.

1, 5, 6, 7, 8, 9, 10, 11, 15, 19, 23, 27, 31, 35, 39, 40, 41, 42, 43, 44, 45, 49, 50, 51, 52, 53, 54, 55, 59, 60, 61, 62, 63, 64, 65, 69, 70, 71, 72, 73, 74, 75, 79, 80, 81, 82, 83, 84, 85, 89, 90, 91, 92, 93, 94, 95, 99, 100, 101, 102, 103, 104, 105, 109

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, A285617 = 1000111111100010001001..., in which 1 is in positions 1,5,6,7,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {1, 0, 0, 0}}] &, {0}, 10] (* A285617 *)
Flatten[Position[s, 0]]  (* A285618 *)
Flatten[Position[s, 1]]  (* A285619 *)

Crossrefs

Cf. A285617, A285618.

Sequence in context: A155771 A138167 A161839 * A120190 A172072 A121542

Adjacent sequences: A285616 A285617 A285618 * A285620 A285621 A285622

Keyword

nonn,easy

Author

Clark Kimberling, May 01 2017

Status

approved