A284472 Positions of 0 in A284471; complement of A284473.

2, 4, 5, 8, 10, 11, 13, 15, 16, 19, 21, 22, 23, 25, 26, 28, 30, 31, 35, 37, 38, 41, 43, 44, 46, 48, 49, 52, 54, 55, 56, 58, 59, 61, 63, 64, 67, 69, 70, 72, 74, 75, 78, 80, 81, 82, 84, 85, 87, 89, 90, 94, 96, 97, 100, 102, 103, 105, 107, 108, 111, 113, 114

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, 1, 0, 0}}] &, {0}, 17]; (* A284471 *)
Flatten[Position[s, 0]];  (* A284472 *)
Flatten[Position[s, 1]];  (* A284473 *)

Crossrefs

Cf. A284471, A284473.

Sequence in context: A026170 A026174 A120685 * A160545 A161790 A131396

Adjacent sequences: A284469 A284470 A284471 * A284473 A284474 A284475

Keyword

nonn,easy

Author

Clark Kimberling, Apr 02 2017

Status

approved