OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Beatty Sequence
FORMULA
a(n) = floor(n * r), where r = 2.75393267425618214080...
EXAMPLE
a(2) = floor(2 * 2.7539...) = floor(5.5078...) = 5.
MATHEMATICA
r = N[ Root[2#^5 - 9#^4 + 13#^3 - 11#^2 + 5# - 1 &, 1], 64]; Array[ Floor[r #] &, 70] (* Robert G. Wilson v, Dec 10 2017 *)
PROG
(PARI) a(n) = floor(n*solve(x=2, 3, 2*x^5 - 9*x^4 + 13*x^3 - 11*x^2 + 5*x - 1))
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Iain Fox, Dec 08 2017
STATUS
approved