A284820 Positions of 0 in the {1100->0}-transform of A010060; complement of A284847.

1, 4, 6, 7, 8, 10, 13, 15, 16, 18, 19, 22, 24, 25, 26, 28, 29, 32, 34, 35, 37, 40, 42, 43, 44, 46, 49, 51, 52, 54, 55, 58, 60, 61, 63, 66, 68, 69, 70, 72, 73, 76, 78, 79, 80, 82, 85, 87, 88, 90, 91, 94, 96, 97, 98, 100, 101, 104, 106, 107, 109, 112, 114, 115

Offset

1,2

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

The {1100->0}-transform of A010060 begins with the word 011010001011010010011010001..., in which 0 is in positions 1,4,6,7,8,10,...

Mathematica

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

Crossrefs

Cf. A010060, A284792, A284847.

Sequence in context: A105432 A324704 A203168 * A284623 A139490 A030375

Adjacent sequences: A284817 A284818 A284819 * A284821 A284822 A284823

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Extensions

Definition corrected by Georg Fischer, Sep 24 2021

Status

approved