A284681 Positions of 0 in A284680; complement of A284682.

2, 3, 4, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 28, 29, 30, 35, 36, 37, 42, 43, 44, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 63, 68, 69, 70, 72, 73, 74, 76, 77, 78, 80, 81, 82, 87, 88, 89, 91, 92, 93, 95, 96, 97, 99, 100, 101, 106, 107, 108, 110

Offset

1,1

Comments

Conjecture: a(n)/n -> (7 + sqrt(13))/6.

Links

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

Example

As a word, A284680 = 1000111100010001000..., in which 0 is in positions 2,3,4,9,...

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, A284682.

Sequence in context: A373788 A081870 A165315 * A309346 A047339 A250483

Adjacent sequences: A284678 A284679 A284680 * A284682 A284683 A284684

Keyword

nonn,easy

Author

Clark Kimberling, Apr 11 2017

Status

approved