A285516 Positions of 0 in A285515; complement of A285517.

1, 3, 5, 7, 11, 13, 17, 19, 21, 23, 25, 27, 31, 33, 37, 39, 41, 43, 45, 47, 51, 53, 57, 59, 61, 63, 65, 67, 71, 73, 77, 79, 83, 85, 89, 91, 95, 97, 101, 103, 105, 107, 109, 111, 115, 117, 121, 123, 125, 127, 129, 131, 135, 137, 141, 143, 147, 149, 153, 155

Offset

1,2

Comments

Conjecture: a(n)/n -> (3+sqrt(5))/2.

Links

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

Example

As a word, A285515 = 01010101110..., in which 0 is in positions 1,3,5,7,11,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 1, 1}}] &, {0}, 6] (* A285501 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"11" -> "1", "00" -> "0"}]
s1 = ToCharacterCode[w1] - 48 (* A285515 *)
Flatten[Position[s1, 0]] (* A285516 *)
Flatten[Position[s1, 1]] (* A285517  *)

Crossrefs

Cf. A285501, A285515, A285517, A285518.

Sequence in context: A254050 A250094 A351398 * A319801 A339907 A255602

Adjacent sequences: A285513 A285514 A285515 * A285517 A285518 A285519

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved