A284958 Positions of 0 in A284957; complement of A284959.

2, 4, 6, 7, 8, 9, 11, 13, 15, 17, 18, 19, 20, 22, 24, 26, 28, 29, 30, 31, 33, 34, 35, 36, 38, 39, 40, 41, 43, 44, 45, 46, 48, 50, 52, 54, 55, 56, 57, 59, 61, 63, 65, 66, 67, 68, 70, 72, 74, 76, 77, 78, 79, 81, 83, 85, 87, 88, 89, 90, 92, 93, 94, 95, 97, 98

Offset

1,1

Comments

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

Links

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

Example

As a word, A284957 = 10101000010..., in which 0 is in positions 2,4,6,7,8,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 0}}] &, {0}, 9]; (* A284957 *)
Flatten[Position[s, 0]]; (* A284958  *)
Flatten[Position[s, 1]]; (* A284959 *)

Crossrefs

Cf. A284957, A284959.

Sequence in context: A039045 A050481 A285416 * A014530 A268445 A053663

Adjacent sequences: A284955 A284956 A284957 * A284959 A284960 A284961

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Status

approved