login
A286654
Characteristic sequence of the Beatty sequence, A022841, of sqrt(7).
2
0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0
OFFSET
1
COMMENTS
The positions of 0 are given by A285676, and of 1, by A022841.
LINKS
FORMULA
a(n) = 1 - floor((n+1)*(1-1/r)) + floor(n*(1-1/r)), where r = sqrt(7). [corrected by Georg Fischer, Sep 01 2022]
MATHEMATICA
r = Sqrt[7];
s = 1 - Table[Floor[(n + 1) (1 - 1/r) - Floor[n (1 - 1/r)]], {n, 1, 200}] (* A286654 *)
Flatten[Position[s, 0]] (* A285676 *)
Flatten[Position[s, 1]] (* A022841 *)
CROSSREFS
Sequence in context: A094186 A267371 A285205 * A003849 A188034 A115199
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 11 2017
STATUS
approved