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 A051017 #12 Feb 16 2025 08:32:41
%S A051017 2,9,10,13,15,16,18,20,21,23,26,28,31,33,34,36,39,41,44,46,47,49,51,
%T A051017 52,54,57,59,62,64,65,67,69,70,72,75,77,80,82,83,85,87,88,90,93,95,96,
%U A051017 98,100,101,103,106,108,111,113,114,116,118,119,121,124,126,129,131
%N A051017 Numbers n for which r^n-floor(r^n) > 1/2, where r is the real root of x^3-x-1.
%C A051017 For large powers, r^n is very close to an integer.
%H A051017 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PisotNumber.html">Pisot Number</a>
%t A051017 Flatten[ With[ {r = Root[ -1 - #1 + #1^3 &, 1 ]}, Position[ Table[ r^n - Floor[ r^n ], {n, 1, 200} ], _?(#1 > 1/2 & ), 1 ] ] ]
%Y A051017 Cf. A051016, A060006.
%K A051017 nonn
%O A051017 1,1
%A A051017 _Eric W. Weisstein_
%E A051017 Corrected by _Don Reble_, May 04 2006