This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A292988 #14 Feb 16 2025 08:33:51 %S A292988 2,5,8,11,13,16,19,22,24,27,30,33,35,38,41,44,46,49,52,55,57,60,63,66, %T A292988 68,71,74,77,79,82,85,88,90,93,96,99,101,104,107,110,112,115,118,121, %U A292988 123,126,129,132,134,137,140,143,145,148,151,154,156,159,162,165,167,170,173,176,179 %N 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. %C A292988 First differs from A187341 at n = 21. %C A292988 First differs from A108589 at n = 65. %H A292988 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BeattySequence.html">Beatty Sequence</a> %H A292988 <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a> %F A292988 a(n) = floor(n * r), where r = 2.75393267425618214080... %e A292988 a(2) = floor(2 * 2.7539...) = floor(5.5078...) = 5. %t A292988 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 *) %o A292988 (PARI) a(n) = floor(n*solve(x=2, 3, 2*x^5 - 9*x^4 + 13*x^3 - 11*x^2 + 5*x - 1)) %Y A292988 Cf. A187341, A108589. %Y A292988 Complement: A292987. %K A292988 nonn %O A292988 1,1 %A A292988 _Iain Fox_, Dec 08 2017