A285163 Positions of 0 in A285162; complement of A285164.

2, 4, 5, 6, 9, 10, 13, 14, 18, 20, 22, 23, 24, 27, 28, 31, 32, 36, 37, 38, 42, 43, 44, 48, 50, 52, 53, 54, 57, 58, 62, 64, 65, 66, 69, 70, 73, 74, 78, 79, 80, 84, 86, 88, 89, 90, 93, 94, 98, 100, 101, 102, 105, 106, 109, 110, 114, 115, 116, 120, 122, 124

Offset

1,1

Comments

Conjecture: a(n)/n -> 2.

Links

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

Example

As a word, A285142 = 101000110..., in which 0 is in positions 2,4,5,6,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1, 1}}] &, {0}, 10]; (* A285159 *)
Flatten[Position[s, 0]];  (* A285160 *)
Flatten[Position[s, 1]];  (* A285161 *)

Crossrefs

Cf. A285159, A285162, A285164.

Sequence in context: A062861 A120629 A169694 * A015834 A252041 A231587

Adjacent sequences: A285160 A285161 A285162 * A285164 A285165 A285166

Keyword

nonn,easy

Author

Clark Kimberling, Apr 21 2017

Status

approved