OFFSET
0,4
LINKS
Andrei Vieru, Pisot Numbers and Primes, arXiv:1205.1054 [math.NT], Apr 04 2012.
MATHEMATICA
r = Solve[x^3 - x - 1 == 0, x][[1, 1, 2]]; Table[Floor[r^n], {n, 0, 50}] (* T. D. Noe, Jan 30 2012 *)
PROG
(PARI)
default(realprecision, 110);
default(format, "g.15");
r=real(polroots(x^3-x-1)[1])
v=vector(66, n, floor(r^(n-1)) ) /* Joerg Arndt, Jan 29 2012 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 31 2006
EXTENSIONS
Completely edited by Joerg Arndt, Jan 29 2012
STATUS
approved