A285413 Positions of 1 in A285411; complement of A285412.

2, 5, 7, 8, 10, 12, 13, 15, 18, 21, 24, 26, 27, 29, 31, 32, 34, 37, 39, 40, 42, 44, 45, 46, 47, 49, 51, 52, 54, 57, 59, 60, 62, 64, 65, 67, 70, 72, 73, 75, 77, 78, 79, 80, 82, 84, 85, 87, 90, 92, 93, 95, 97, 98, 100, 103, 106, 109, 111, 112, 114, 116, 117

Offset

1,1

Comments

Conjecture: a(n)/n -> (61-sqrt(3))/26 = 2.279...

Links

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

Example

As a word, A285411 = 010010..., in which 1 is in positions 2,5,7,8,10,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 0}}] &, {0}, 10] (* A285411 *)
Flatten[Position[s, 0]]  (* A285412 *)
Flatten[Position[s, 1]]  (* A285413 *)

Crossrefs

Cf. A285411, A285412, A285413.

Sequence in context: A283778 A028782 A025505 * A184793 A343301 A034028

Adjacent sequences: A285410 A285411 A285412 * A285414 A285415 A285416

Keyword

nonn,easy

Author

Clark Kimberling, Apr 27 2017

Status

approved