A285593 Positions of 0 in A285592; complement of A285594.

2, 4, 6, 9, 11, 13, 15, 17, 19, 21, 23, 25, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 51, 53, 55, 57, 59, 61, 63, 65, 67, 70, 72, 74, 77, 79, 81, 84, 86, 88, 90, 92, 94, 96, 98, 100, 103, 105, 107, 109, 111, 113, 115, 117, 119, 121, 123, 126, 128, 130, 132

Offset

1,1

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 = 1010101101..., in which 0 is in positions 2,4,6,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 1, 0}}] &, {0}, 9] (* A285568 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"11" -> "1", "00" -> "0"}]
ss = ToCharacterCode[w1] - 48 (* A285592 *)
Flatten[Position[ss, 0]]  (* A285593 *)
Flatten[Position[ss, 1]] (* A285594 *)

Crossrefs

Cf. A285568, A285592, A285594.

Sequence in context: A191194 A191231 A326494 * A351631 A248898 A207188

Adjacent sequences: A285590 A285591 A285592 * A285594 A285595 A285596

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved