A285082 Positions of 1 in A285080; complement of A285081.

2, 3, 4, 6, 9, 10, 12, 13, 14, 17, 18, 20, 21, 22, 25, 26, 28, 29, 31, 32, 33, 35, 38, 39, 41, 42, 44, 45, 46, 49, 50, 51, 53, 56, 57, 59, 60, 61, 64, 65, 67, 68, 70, 71, 72, 74, 77, 78, 80, 81, 82, 85, 86, 88, 89, 90, 93, 94, 96, 97, 99, 100, 101, 104, 105

Offset

1,1

Comments

Conjecture: -1 < n*r - a(n) < 1 for n>=1, where r = (1+sqrt(5))/2, the golden ratio.

Links

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

Example

As a word, A285080 = 01110..., in which 1 is in positions 2,3,4,6,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 1}}] &, {0}, 14]; (* A285080 *)
Flatten[Position[s, 0]];  (* A285081 *)
Flatten[Position[s, 1]];  (* A285082 *)

Crossrefs

Cf. A001622, A285080, A285081, A285083, A285084.

Sequence in context: A111251 A047300 A026439 * A249602 A119761 A144429

Adjacent sequences: A285079 A285080 A285081 * A285083 A285084 A285085

Keyword

nonn,easy

Author

Clark Kimberling, Apr 19 2017

Status

approved