A284682 Positions of 1 in A284680; complement of A284681.

1, 5, 6, 7, 8, 12, 16, 20, 24, 25, 26, 27, 31, 32, 33, 34, 38, 39, 40, 41, 45, 46, 47, 48, 52, 56, 60, 64, 65, 66, 67, 71, 75, 79, 83, 84, 85, 86, 90, 94, 98, 102, 103, 104, 105, 109, 113, 117, 121, 122, 123, 124, 128, 129, 130, 131, 135, 136, 137, 138, 142

Offset

1,2

Comments

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

Links

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

Example

As a word, A284680 = 1000111100010001000..., in which 1 is in positions 1,5,6,7,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {1, 0, 0, 0}}] &, {0}, 8] (* A284680 *)
Flatten[Position[s, 0]]  (* A284681 *)
Flatten[Position[s, 1]]  (* A284682 *)

Crossrefs

Cf. A284680, A284681.

Sequence in context: A236242 A309102 A080703 * A171405 A047575 A014097

Adjacent sequences: A284679 A284680 A284681 * A284683 A284684 A284685

Keyword

nonn,easy

Author

Clark Kimberling, Apr 11 2017

Status

approved