%I A051017
%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="http://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.
%Y A051017 Sequence in context: A037457 A037314 A031443 this_sequence A078180 A058890 
               A047468
%Y A051017 Adjacent sequences: A051014 A051015 A051016 this_sequence A051018 A051019 
               A051020
%K A051017 nonn
%O A051017 1,1
%A A051017 Eric Weisstein (eric(AT)weisstein.com)
%E A051017 Corrected by Don Reble (djr(AT)nk.ca), May 04 2006