A284473 Positions of 1 in A284471; complement of A284472.

1, 3, 6, 7, 9, 12, 14, 17, 18, 20, 24, 27, 29, 32, 33, 34, 36, 39, 40, 42, 45, 47, 50, 51, 53, 57, 60, 62, 65, 66, 68, 71, 73, 76, 77, 79, 83, 86, 88, 91, 92, 93, 95, 98, 99, 101, 104, 106, 109, 110, 112, 116, 120, 123, 125, 128, 129, 131, 135, 138, 140, 143

Offset

1,2

Comments

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

Links

Clark Kimberling, Table of n, a(n) for n = 1..14208

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 1, 0, 0}}] &, {0}, 17]; (* A284471 *)
Flatten[Position[s, 0]];  (* A284472 *)
Flatten[Position[s, 1]];  (* A284473*)

Crossrefs

Cf. A284471, A284472.

Sequence in context: A382875 A176409 A376088 * A120684 A324927 A026227

Adjacent sequences: A284470 A284471 A284472 * A284474 A284475 A284476

Keyword

nonn,easy

Author

Clark Kimberling, Apr 02 2017

Status

approved