A284492 Positions of 1 in A284490; complement of A284491.

1, 2, 5, 6, 9, 10, 11, 12, 15, 16, 19, 20, 23, 24, 27, 28, 29, 30, 33, 34, 37, 38, 39, 40, 43, 44, 47, 48, 51, 52, 55, 56, 57, 58, 61, 62, 65, 66, 67, 68, 71, 72, 75, 76, 77, 78, 81, 82, 85, 86, 87, 88, 91, 92, 95, 96, 99, 100, 103, 104, 105, 106, 109, 110

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, 1, 1}}] &, {0}, 15]; (* A284490 *)
Flatten[Position[s, 0]];  (* A284491 *)
Flatten[Position[s, 1]];  (* A284492 *)

Crossrefs

Cf. A284488, A284490, A284491.

Sequence in context: A285663 A143909 A284507 * A224779 A171888 A286905

Adjacent sequences: A284489 A284490 A284491 * A284493 A284494 A284495

Keyword

nonn,easy

Author

Clark Kimberling, Apr 04 2017

Status

approved