A284509 Positions of 0 in A284508; complement of A284510.

1, 2, 3, 5, 6, 7, 9, 10, 11, 16, 17, 18, 20, 21, 22, 24, 25, 26, 28, 29, 30, 35, 36, 37, 39, 40, 41, 43, 44, 45, 47, 48, 49, 54, 55, 56, 61, 62, 63, 68, 69, 70, 75, 76, 77, 79, 80, 81, 83, 84, 85, 87, 88, 89, 94, 95, 96, 98, 99, 100, 102, 103, 104, 106, 107

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, 0, 1}}] &, {0}, 8] (* A284508 *)
Flatten[Position[s, 0]]  (* A284509 *)
Flatten[Position[s, 1]]  (* A284510 *)

Crossrefs

Cf. A284508, A284510, A284513.

Sequence in context: A189529 A120514 A101886 * A135674 A371188 A195121

Adjacent sequences: A284506 A284507 A284508 * A284510 A284511 A284512

Keyword

nonn,easy

Author

Clark Kimberling, Apr 05 2017

Status

approved