%I A051016
%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="http://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.
%Y A051016 Sequence in context: A001272 A047563 A120561 this_sequence A044951 A138308 
               A039084
%Y A051016 Adjacent sequences: A051013 A051014 A051015 this_sequence A051017 A051018 
               A051019
%K A051016 nonn
%O A051016 1,2
%A A051016 Eric Weisstein (eric(AT)weisstein.com)
%E A051016 Corrected by Don Reble (djr(AT)nk.ca), May 04 2006