A285591 Positions of 1 in A285589; complement of A285590.

2, 4, 6, 8, 10, 12, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 97, 99, 101, 103, 105, 107, 109, 111, 113, 115, 116, 118, 120

Offset

1,1

Comments

Conjecture: a(n)/n -> (1+sqrt(4/5).

Links

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

Example

As a word, A285568 = 01010101010110..., in which 1 is in positions 2,4,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 1, 0}}] &, {0}, 8] (* A285565 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"00" -> "0", "11" -> "1"}]
ss = ToCharacterCode[w1] - 48 (* A285589 *)
Flatten[Position[ss, 0]]  (* A285590 *)
Flatten[Position[ss, 1]]  (* A285591 *)

Crossrefs

Cf. A285565, A285589, A285590, A285592.

Sequence in context: A161602 A359496 A356066 * A327210 A376603 A274611

Adjacent sequences: A285588 A285589 A285590 * A285592 A285593 A285594

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved