A284488 Positions of 0 in A284487; complement of A284489.

1, 2, 5, 6, 11, 12, 15, 16, 21, 22, 25, 26, 29, 30, 33, 34, 39, 40, 43, 44, 49, 50, 53, 54, 59, 60, 63, 64, 69, 70, 73, 74, 77, 78, 81, 82, 87, 88, 91, 92, 97, 98, 101, 102, 105, 106, 109, 110, 115, 116, 119, 120, 125, 126, 129, 130, 135, 136, 139, 140, 145

Offset

1,2

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}, 14]; (* A284487 *)
Flatten[Position[s, 0]];  (* A284488 *)
Flatten[Position[s, 1]];  (* A284489 *)

Crossrefs

Cf. A284487, A284489, A284491.

Sequence in context: A206332 A269966 A026344 * A322047 A057812 A329572

Adjacent sequences: A284485 A284486 A284487 * A284489 A284490 A284491

Keyword

nonn,easy

Author

Clark Kimberling, Apr 04 2017

Status

approved