A284510 Positions of 1 in A284508; complement of A284509.

4, 8, 12, 13, 14, 15, 19, 23, 27, 31, 32, 33, 34, 38, 42, 46, 50, 51, 52, 53, 57, 58, 59, 60, 64, 65, 66, 67, 71, 72, 73, 74, 78, 82, 86, 90, 91, 92, 93, 97, 101, 105, 109, 110, 111, 112, 116, 120, 124, 128, 129, 130, 131, 135, 139, 143, 147, 148, 149, 150

Offset

1,1

Comments

Conjecture: a(n)/n -> (1 + sqrt(13))/2.

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, A284509, A284514.

Sequence in context: A080458 A147646 A080229 * A167523 A261811 A311077

Adjacent sequences: A284507 A284508 A284509 * A284511 A284512 A284513

Keyword

nonn,easy

Author

Clark Kimberling, Apr 05 2017

Status

approved