A285085 Positions of 1 in A285083; complement of A285084.

1, 4, 5, 7, 8, 10, 11, 12, 15, 16, 17, 19, 22, 23, 25, 26, 27, 30, 31, 33, 34, 36, 37, 38, 40, 43, 44, 46, 47, 48, 51, 52, 54, 55, 57, 58, 59, 61, 64, 65, 67, 68, 69, 72, 73, 75, 76, 77, 80, 81, 83, 84, 86, 87, 88, 91, 92, 93, 95, 98, 99, 101, 102, 103, 106

Offset

1,2

Comments

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

Links

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

Example

As a word, A285083 = 1001101101110..., in which 0 is in positions 2,3,6,9,13,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 1}}] &, {0}, 13]; (* A285083 *)
Flatten[Position[s, 0]];  (* A285084 *)
Flatten[Position[s, 1]];  (* A285085 *)

Crossrefs

Cf. A001622, A285080, A285083, A285084.

Sequence in context: A168044 A248188 A174047 * A231507 A097482 A191984

Adjacent sequences: A285082 A285083 A285084 * A285086 A285087 A285088

Keyword

nonn,easy

Author

Clark Kimberling, Apr 19 2017

Status

approved