A292988 Beatty sequence of the real root of 2*x^5 - 9*x^4 + 13*x^3 - 11*x^2 + 5*x - 1; complement of A292987.
2, 5, 8, 11, 13, 16, 19, 22, 24, 27, 30, 33, 35, 38, 41, 44, 46, 49, 52, 55, 57, 60, 63, 66, 68, 71, 74, 77, 79, 82, 85, 88, 90, 93, 96, 99, 101, 104, 107, 110, 112, 115, 118, 121, 123, 126, 129, 132, 134, 137, 140, 143, 145, 148, 151, 154, 156, 159, 162, 165, 167, 170, 173, 176, 179
Offset: 1
Keywords
Examples
a(2) = floor(2 * 2.7539...) = floor(5.5078...) = 5.
Links
- Eric Weisstein's World of Mathematics, Beatty Sequence
- Index entries for sequences related to Beatty sequences
Programs
-
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 *)
-
PARI
a(n) = floor(n*solve(x=2, 3, 2*x^5 - 9*x^4 + 13*x^3 - 11*x^2 + 5*x - 1))
Formula
a(n) = floor(n * r), where r = 2.75393267425618214080...
Comments