A285590 Positions of 0 in A285589; complement of A285591.

1, 3, 5, 7, 9, 11, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 37, 39, 41, 43, 45, 47, 49, 51, 53, 56, 58, 60, 62, 64, 66, 68, 70, 72, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 98, 100, 102, 104, 106, 108, 110, 112, 114, 117, 119, 121, 124, 126, 128, 131

Offset

1,2

Comments

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

Links

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

Example

As a word, A285568 = 01010101010110..., in which 0 is in positions 1,3,5,7,...

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, A285591, A285592.

Sequence in context: A117521 A190053 A327209 * A195179 A033038 A195167

Adjacent sequences: A285587 A285588 A285589 * A285591 A285592 A285593

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved