[go: up one dir, main page]

login
A285684
Characteristic sequence of the Beatty sequence, A022838, of sqrt(3).
2
0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0
OFFSET
1
COMMENTS
The positions of 1 are given by A054406, and of 0, by A022838.
LINKS
FORMULA
a(n) = floor((n+1)*(1-1/r) - floor(n*(1-1/r))), where r = sqrt(3). [corrected by Georg Fischer, Aug 31 2022]
a(n) = floor((n + 1)*(1 - 1/r)) - floor(n - n/r). - Peter Luschny, Aug 31 2022
MATHEMATICA
r = Sqrt[3]; Table[Floor[(n + 1) (1 - 1/r) - Floor[n (1 - 1/r)]], {n, 1, 200}]
PROG
(PARI) r=sqrt(3); for(n=1, 100, print1(floor((n+1)*(1-1/r)-floor(n*(1-1/r))), ", ")) \\ _Georg Fischer, Aug 31 2022
CROSSREFS
Sequence in context: A244221 A253050 A241575 * A163538 A267188 A154104
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 11 2017
STATUS
approved