cp's OEIS Frontend

A228777 Decimal expansion of the third smallest Pisot-Vijayaraghavan number.

%I A228777 #33 Feb 16 2025 08:36:28
%S A228777 1,4,4,3,2,6,8,7,9,1,2,7,0,3,7,3,1,0,7,6,2,8,1,2,7,6,0,7,3,8,6,9,1,1,
%T A228777 6,0,4,6,7,6,0,1,1,9,6,6,6,5,4,5,7,1,5,9,8,4,0,9,2,3,3,7,9,3,6,2,3,7,
%U A228777 8,4,8,3,7,8,7,4,1,8,9,0,5,0,0,3,7,5,9,0,0,7
%N A228777 Decimal expansion of the third smallest Pisot-Vijayaraghavan number.
%H A228777 Iain Fox, <a href="/A228777/b228777.txt">Table of n, a(n) for n = 1..20000</a> (first 1000 terms from Vincenzo Librandi).
%H A228777 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PisotNumber.html">Pisot Number</a>.
%H A228777 Wikipedia, <a href="https://en.wikipedia.org/wiki/Pisot-Vijayaraghavan_number#Small_Pisot_numbers">Pisot number</a>
%H A228777 <a href="/index/Al#algebraic_05">Index entries for algebraic numbers, degree 5</a>
%F A228777 A root of x^5-x^4-x^3+x^2-1.
%e A228777 1.443268791270373107628127607386...
%p A228777 fsolve(x^5-x^4-x^3+x^2-1,x,1.4..1.5) ;
%t A228777 Root[Function[x, x^5-x^4-x^3+x^2-1], 1] // RealDigits[#, 10, 90]& // First (* _Jean-François Alcover_, Feb 20 2014 *)
%o A228777 (PARI)  default(realprecision, 20080); x=solve(x=1, 2, x^5 - x^4 - x^3 + x^2 - 1); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b228777.txt", n, " ", d));  \\ _Iain Fox_, Oct 23 2017
%Y A228777 Cf. A060006, A086106, A092526.
%K A228777 nonn,cons
%O A228777 1,2
%A A228777 _R. J. Mathar_, Sep 04 2013