A285502 Positions of 0 in A285501; complement of A285503.

1, 2, 5, 6, 9, 10, 13, 14, 21, 22, 25, 26, 33, 34, 37, 38, 41, 42, 45, 46, 49, 50, 53, 54, 61, 62, 65, 66, 73, 74, 77, 78, 81, 82, 85, 86, 89, 90, 93, 94, 101, 102, 105, 106, 113, 114, 117, 118, 121, 122, 125, 126, 129, 130, 133, 134, 141, 142, 145, 146, 153

Offset

1,2

Comments

Conjecture: a(n)/n -> (3+sqrt(5))/2.

Links

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

Example

As a word, A285501 = 00110011..., in which 0 is in positions 1,2,5,6,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 1, 1}}] &, {0}, 8] (* A285501 *)
Flatten[Position[s, 0]]  (* A285502 *)
Flatten[Position[s, 1]]  (* A285503 *)

Crossrefs

Cf. A285501, A285503, A285504.

Sequence in context: A042963 A327220 A166097 * A276883 A288552 A187583

Adjacent sequences: A285499 A285500 A285501 * A285503 A285504 A285505

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved