A284514 Positions of 1 in A284512; complement of A284513.

1, 2, 3, 7, 8, 9, 10, 14, 15, 16, 17, 21, 25, 29, 33, 34, 35, 36, 40, 41, 42, 43, 47, 48, 49, 50, 54, 55, 56, 57, 61, 65, 69, 73, 74, 75, 76, 80, 81, 82, 83, 87, 88, 89, 90, 94, 95, 96, 97, 101, 105, 109, 113, 114, 115, 116, 120, 124, 128, 132, 133, 134, 135

Offset

1,2

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

Crossrefs

Cf. A284512, A284513.

Sequence in context: A251391 A047361 A037461 * A268398 A249587 A007607

Adjacent sequences: A284511 A284512 A284513 * A284515 A284516 A284517

Keyword

nonn,easy

Author

Clark Kimberling, Apr 05 2017

Status

approved