Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A286655
Characteristic sequence of the Beatty sequence, A022842, of sqrt(8).
2
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
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
Sequence in context: A175253 A163584 A353307 * A272170 A126565 A215531
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 11 2017
STATUS
approved