login
Decimal expansion of real root of x^7 - x^6 - x^5 + x^2 - 1.
8

%I #25 Jun 25 2024 10:12:45

%S 1,5,4,5,2,1,5,6,4,9,7,3,2,7,5,5,2,4,3,2,5,2,5,5,0,6,2,4,1,0,5,1,1,6,

%T 1,1,9,6,9,1,4,7,0,0,5,5,3,6,4,2,3,3,1,2,3,5,6,0,6,1,0,7,2,5,4,9,8,2,

%U 1,1,5,8,8,1,6,6,5,3,3,1,2,0,5,0,4,3,1

%N Decimal expansion of real root of x^7 - x^6 - x^5 + x^2 - 1.

%C This root is also the seventh smallest of the Pisot numbers.

%H Iain Fox, <a href="/A293557/b293557.txt">Table of n, a(n) for n = 1..20000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PisotNumber.html">Pisot Number</a>

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Pisot%E2%80%93Vijayaraghavan_number">Pisot-Vijayaraghavan number</a>

%e 1.545215649732755243252550...

%t First[RealDigits[Root[#^7 - #^6 - #^5 + #^2 - 1 &, 1], 10, 100]] (* _Paolo Xausa_, Jun 25 2024 *)

%o (PARI) solve(x=1, 2, x^7 - x^6 - x^5 + x^2 - 1) \\ _Michel Marcus_, Oct 13 2017

%o (PARI) { default(realprecision, 20080); x=solve(x=1, 2, x^7 - x^6 - x^5 + x^2 - 1); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b293557.txt", n, " ", d)); }

%Y Cf. A060006, A086106, A228777, A092526, A293508, A293509, A374002, A293506, A374003.

%K cons,nonn

%O 1,2

%A _Iain Fox_, Oct 11 2017