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 A051016 #16 Feb 16 2025 08:32:41
%S A051016 1,3,4,5,6,7,8,11,12,14,17,19,22,24,25,27,29,30,32,35,37,38,40,42,43,
%T A051016 45,48,50,53,55,56,58,60,61,63,66,68,71,73,74,76,78,79,81,84,86,89,91,
%U A051016 92,94,97,99,102,104,105,107,109,110,112,115,117,120,122,123,125,127
%N A051016 Numbers n for which r^n-floor(r^n) < 1/2, where r is the real root of x^3-x-1.
%C A051016 For large powers, r^n is very close to an integer.
%H A051016 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PisotNumber.html">Pisot Number</a>
%t A051016 Flatten[ With[ {r = Root[ -1 - #1 + #1^3 &, 1 ]}, Position[ Table[ r^n - Floor[ r^n ], {n, 1, 200} ], _?(#1 < 1/2 & ), 1 ] ] ]
%Y A051016 Cf. A051017, A060006 (r = 1.32471...).
%K A051016 nonn
%O A051016 1,2
%A A051016 _Eric W. Weisstein_
%E A051016 Corrected by _Don Reble_, May 04 2006