|
%I #30 Aug 21 2023 12:48:08
%S 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 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 8,4,8,3,7,8,7,4,1,8,9,0,5,0,0,3,7,5,9,0,0,7
%N Decimal expansion of the third smallest Pisot-Vijayaraghavan number.
%H Iain Fox, <a href="/A228777/b228777.txt">Table of n, a(n) for n = 1..20000</a> (first 1000 terms from Vincenzo Librandi).
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Pisot-Vijayaraghavan_number#Small_Pisot_numbers">Pisot number</a>
%H <a href="/index/Al#algebraic_05">Index entries for algebraic numbers, degree 5</a>
%F A root of x^5-x^4-x^3+x^2-1.
%e 1.443268791270373107628127607386...
%p fsolve(x^5-x^4-x^3+x^2-1,x,1.4..1.5) ;
%t 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 (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 Cf. A060006, A086106, A092526.
%K nonn,cons
%O 1,2
%A _R. J. Mathar_, Sep 04 2013
|
