A284525 Positions of 0 in A284524; complement of A284526.

1, 2, 4, 5, 6, 8, 11, 12, 14, 16, 17, 19, 20, 21, 23, 24, 25, 27, 30, 31, 33, 35, 36, 38, 41, 42, 44, 48, 49, 51, 53, 54, 56, 57, 58, 60, 63, 64, 66, 68, 69, 71, 74, 75, 77, 79, 80, 82, 83, 84, 86, 89, 90, 92, 94, 95, 97, 98, 99, 101, 102, 103, 105, 108, 109

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, 0}}] &, {0}, 8] (* A284524 *)
Flatten[Position[s, 0]]  (* A284525 *)
Flatten[Position[s, 1]]  (* A284526 *)

Crossrefs

Cf. A284524, A284526, A284527.

Sequence in context: A249053 A082851 A091207 * A353187 A099247 A192583

Adjacent sequences: A284522 A284523 A284524 * A284526 A284527 A284528

Keyword

nonn,easy

Author

Clark Kimberling, Apr 05 2017

Status

approved