A284489 Positions of 1 in A284487; complement of A284488.

3, 4, 7, 8, 9, 10, 13, 14, 17, 18, 19, 20, 23, 24, 27, 28, 31, 32, 35, 36, 37, 38, 41, 42, 45, 46, 47, 48, 51, 52, 55, 56, 57, 58, 61, 62, 65, 66, 67, 68, 71, 72, 75, 76, 79, 80, 83, 84, 85, 86, 89, 90, 93, 94, 95, 96, 99, 100, 103, 104, 107, 108, 111, 112

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, 0, 1, 1}}] &, {0}, 14]; (* A284487 *)
Flatten[Position[s, 0]];  (* A284488 *)
Flatten[Position[s, 1]];  (* A284489 *)

Crossrefs

Cf. A284487, A284488, A284491.

Sequence in context: A086986 A346126 A057811 * A026343 A080722 A092754

Adjacent sequences: A284486 A284487 A284488 * A284490 A284491 A284492

Keyword

nonn,easy

Author

Clark Kimberling, Apr 04 2017

Status

approved