A285517 Positions of 1 in A285515; complement of A285516.

2, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 22, 24, 26, 28, 29, 30, 32, 34, 35, 36, 38, 40, 42, 44, 46, 48, 49, 50, 52, 54, 55, 56, 58, 60, 62, 64, 66, 68, 69, 70, 72, 74, 75, 76, 78, 80, 81, 82, 84, 86, 87, 88, 90, 92, 93, 94, 96, 98, 99, 100, 102, 104, 106

Offset

1,1

Comments

Conjecture: a(n)/n -> (1+sqrt(5))/2 = golden ratio (A001622).

Links

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

Example

As a word, A285515 = 01010101110..., in which 1 is in positions 2,4,6,8,9,...

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. A001622, A285501, A285515, A285516, A285518.

Sequence in context: A355822 A367226 A227197 * A003254 A247875 A153184

Adjacent sequences: A285514 A285515 A285516 * A285518 A285519 A285520

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved