A284528 Positions of 0 in A284527; complement of A284529.

3, 4, 6, 10, 11, 13, 15, 16, 18, 19, 20, 22, 25, 26, 28, 30, 31, 33, 36, 37, 39, 43, 44, 46, 50, 51, 53, 55, 56, 58, 59, 60, 62, 65, 66, 68, 70, 71, 73, 76, 77, 79, 81, 82, 84, 85, 86, 88, 91, 92, 94, 96, 97, 99, 100, 101, 103, 104, 105, 107, 110, 111, 113

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, 0}}] &, {0}, 9] (* A284527 *)
Flatten[Position[s, 0]]  (* A284528 *)
Flatten[Position[s, 1]]  (* A284529 *)

Crossrefs

Cf. A284524, A284527, A284529.

Sequence in context: A185739 A050087 A079325 * A176865 A047296 A374901

Adjacent sequences: A284525 A284526 A284527 * A284529 A284530 A284531

Keyword

nonn,easy

Author

Clark Kimberling, Apr 05 2017

Status

approved