%I #15 Aug 23 2021 00:36:13
%S 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 45,48,50,53,55,56,58,60,61,63,66,68,71,73,74,76,78,79,81,84,86,89,91,
%U 92,94,97,99,102,104,105,107,109,110,112,115,117,120,122,123,125,127
%N Numbers n for which r^n-floor(r^n) < 1/2, where r is the real root of x^3-x-1.
%C For large powers, r^n is very close to an integer.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PisotNumber.html">Pisot Number</a>
%t Flatten[ With[ {r = Root[ -1 - #1 + #1^3 &, 1 ]}, Position[ Table[ r^n - Floor[ r^n ], {n, 1, 200} ], _?(#1 < 1/2 & ), 1 ] ] ]
%Y Cf. A051017, A060006 (r = 1.32471...).
%K nonn
%O 1,2
%A _Eric W. Weisstein_
%E Corrected by _Don Reble_, May 04 2006
|