A284513 Positions of 0 in A284512; complement of A284514.

4, 5, 6, 11, 12, 13, 18, 19, 20, 22, 23, 24, 26, 27, 28, 30, 31, 32, 37, 38, 39, 44, 45, 46, 51, 52, 53, 58, 59, 60, 62, 63, 64, 66, 67, 68, 70, 71, 72, 77, 78, 79, 84, 85, 86, 91, 92, 93, 98, 99, 100, 102, 103, 104, 106, 107, 108, 110, 111, 112, 117, 118

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, 0, 1}}] &, {0}, 9] (* A284512 *)
Flatten[Position[s, 0]]  (* A284513 *)
Flatten[Position[s, 1]]  (* A284514 *)

Crossrefs

Cf. A284512, A284514.

Sequence in context: A249853 A162415 A007606 * A047311 A224081 A347269

Adjacent sequences: A284510 A284511 A284512 * A284514 A284515 A284516

Keyword

nonn,easy

Author

Clark Kimberling, Apr 05 2017

Status

approved