A286402 Positions of 1 in A286400; complement of A286401.

2, 3, 5, 6, 9, 11, 12, 14, 16, 17, 20, 21, 23, 24, 27, 29, 30, 33, 34, 36, 38, 39, 41, 42, 45, 47, 48, 50, 52, 53, 56, 57, 59, 61, 62, 64, 65, 68, 70, 71, 74, 75, 77, 78, 81, 83, 84, 86, 88, 89, 92, 93, 95, 96, 99, 101, 102, 105, 106, 108, 110, 111, 113, 114

Offset

1,1

Comments

a(n) - a(n-1) is in {1,2,3} for n>=2. Conjecture: a(n)/n -> 9/5.

Links

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

Example

As a word, A286400 = 011011001011010110011..., in which 1 is in positions 2,3,5,6,9,11,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"1010" -> "1"}]
st = ToCharacterCode[w1] - 48  (* A286400 *)
Flatten[Position[st, 0]]  (* A286401 *)
Flatten[Position[st, 1]]  (* A286402 *)

Crossrefs

Cf. A010060, A286400, A286401.

Sequence in context: A026459 A026461 A026168 * A175007 A284685 A113238

Adjacent sequences: A286399 A286400 A286401 * A286403 A286404 A286405

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved