A284491 Positions of 0 in A284490; complement of A284492.

3, 4, 7, 8, 13, 14, 17, 18, 21, 22, 25, 26, 31, 32, 35, 36, 41, 42, 45, 46, 49, 50, 53, 54, 59, 60, 63, 64, 69, 70, 73, 74, 79, 80, 83, 84, 89, 90, 93, 94, 97, 98, 101, 102, 107, 108, 111, 112, 117, 118, 121, 122, 125, 126, 129, 130, 135, 136, 139, 140, 145

Offset

1,1

Comments

Conjecture: a(n)/n -> (7 + sqrt(13))/6.

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 0, 1, 1}}] &, {0}, 15]; (* A284490 *)
Flatten[Position[s, 0]];  (* A284491 *)
Flatten[Position[s, 1]];  (* A284492 *)

Crossrefs

Cf. A284488, A284490, A284492.

Sequence in context: A207524 A003141 A338467 * A284506 A157419 A008368

Adjacent sequences: A284488 A284489 A284490 * A284492 A284493 A284494

Keyword

nonn,easy

Author

Clark Kimberling, Apr 04 2017

Status

approved