A286655 Characteristic sequence of the Beatty sequence, A022842, of sqrt(8).

0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0

Offset

1

Comments

The positions of 0 are given by A286323, and of 1, by A022842.

Links

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

Formula

a(n) = 1 - floor((n+1)*(1-1/r)) + floor(n*(1-1/r)), where r = sqrt(8). [corrected by Georg Fischer, Sep 01 2022]

Mathematica

r = Sqrt[8];
s = 1 - Table[Floor[(n + 1) (1 - 1/r) - Floor[n (1 - 1/r)]], {n, 1, 200}] (* A286655 *)
Flatten[Position[s, 0]]  (* A286323 *)
Flatten[Position[s, 1]]  (* A022842 *)

Crossrefs

Cf. A022842, A286323.

Sequence in context: A175253 A163584 A353307 * A272170 A126565 A215531

Adjacent sequences: A286652 A286653 A286654 * A286656 A286657 A286658

Keyword

nonn,easy

Author

Clark Kimberling, May 11 2017

Status

approved