A285618 Positions of 0 in A285617; complement of A285619.

2, 3, 4, 12, 13, 14, 16, 17, 18, 20, 21, 22, 24, 25, 26, 28, 29, 30, 32, 33, 34, 36, 37, 38, 46, 47, 48, 56, 57, 58, 66, 67, 68, 76, 77, 78, 86, 87, 88, 96, 97, 98, 106, 107, 108, 110, 111, 112, 114, 115, 116, 118, 119, 120, 122, 123, 124, 126, 127, 128, 130

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, A285617 = 1000111111100010001001..., in which 0 is in positions 2,3,4,12,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {1, 0, 0, 0}}] &, {0}, 10] (* A285617 *)
Flatten[Position[s, 0]]  (* A285618 *)
Flatten[Position[s, 1]]  (* A285619 *)

Crossrefs

Cf. A285617, A285619.

Sequence in context: A119799 A036779 A037339 * A062946 A210584 A060529

Adjacent sequences: A285615 A285616 A285617 * A285619 A285620 A285621

Keyword

nonn,easy

Author

Clark Kimberling, May 01 2017

Status

approved