A285429 Positions of 1 in A285427; complement of A285428.

1, 4, 5, 6, 7, 8, 11, 14, 17, 20, 23, 24, 25, 26, 27, 30, 31, 32, 33, 34, 37, 38, 39, 40, 41, 44, 45, 46, 47, 48, 51, 52, 53, 54, 55, 58, 61, 64, 67, 70, 71, 72, 73, 74, 77, 80, 83, 86, 89, 90, 91, 92, 93, 96, 99, 102, 105, 108, 109, 110, 111, 112, 115, 118

Offset

1,2

Comments

Conjecture: a(n)/n -> (82 + sqrt(3))/47.

Links

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

Example

As a word, A285427 = 100111110..., in which 1 is in positions 1,4,5,6,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {1, 0, 0}}] &, {0}, 10] (* A285427 *)
Flatten[Position[s, 0]]  (* A285428 *)
Flatten[Position[s, 1]]  (* A285429 *)

Crossrefs

Cf. A026363, A026364.

Sequence in context: A039040 A129740 A161428 * A073073 A213525 A047567

Adjacent sequences: A285426 A285427 A285428 * A285430 A285431 A285432

Keyword

nonn,easy

Author

Clark Kimberling, Apr 28 2017

Status

approved