A284470 Positions of 1 in A284468; complement of A284469.

2, 5, 7, 10, 11, 13, 17, 20, 22, 25, 26, 28, 31, 33, 36, 37, 39, 43, 46, 48, 51, 52, 53, 55, 58, 59, 61, 64, 66, 69, 70, 72, 76, 80, 83, 85, 88, 89, 91, 95, 98, 100, 103, 104, 106, 109, 111, 114, 115, 117, 121, 124, 126, 129, 130, 131, 133, 136, 137, 139

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, 1, 0, 0}}] &, {0}, 16]; (* A284468 *)
Flatten[Position[s, 0]];  (* A284469 *)
Flatten[Position[s, 1]];  (* A284470*)

Crossrefs

Cf. A284468, A284469, A284473.

Sequence in context: A330777 A259749 A067934 * A112730 A288602 A049842

Adjacent sequences: A284467 A284468 A284469 * A284471 A284472 A284473

Keyword

nonn,easy

Author

Clark Kimberling, Apr 02 2017

Status

approved