OFFSET

1,2

COMMENTS

For large powers, r^n is very close to an integer.

LINKS

Eric Weisstein's World of Mathematics, Pisot Number

MATHEMATICA

Flatten[ With[ {r = Root[ -1 - #1 + #1^3 &, 1 ]}, Position[ Table[ r^n - Floor[ r^n ], {n, 1, 200} ], _?(#1 < 1/2 & ), 1 ] ] ]

CROSSREFS

KEYWORD

nonn

AUTHOR

EXTENSIONS

Corrected by Don Reble, May 04 2006

STATUS

approved