A285092 Positions of 1 in A284848; complement of A285091.

2, 3, 5, 8, 9, 11, 12, 14, 17, 19, 20, 21, 23, 26, 27, 29, 30, 31, 33, 36, 38, 39, 41, 44, 45, 47, 48, 50, 53, 55, 56, 57, 59, 62, 64, 65, 67, 70, 71, 73, 74, 75, 77, 80, 81, 83, 84, 86, 89, 91, 92, 93, 95, 98, 99, 101, 102, 103, 105, 108, 110, 111, 113, 116

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, A284848 = 01101001101101001011101..., in which 1 is in positions 2,3,5,8,9,...

Mathematica

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

Crossrefs

Cf. A010060, A284848, A285091.

Sequence in context: A247547 A096974 A286486 * A027756 A119863 A285253

Adjacent sequences: A285089 A285090 A285091 * A285093 A285094 A285095

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved