|
%I #18 May 31 2023 04:27:35
%S 2,6,6,4,0,3,2,7,9,7,2,0,6,4,4,6,1,5,5,6,8,6,3,8,9,3,9,4,3,5,9,7,1,9,
%T 8,1,0,4,9,1,7,8,7,1,7,9,1,9,8,0,8,6,0,4,3,5,3,1,4,8,5,8,1,1,7,6,8,2,
%U 5,5,3,8,0,8,1,2,2,9,2,9,6,5,5,5,4,9,3
%N Decimal expansion of the positive solution to x! = 4.
%H Jianing Song, <a href="/A319276/b319276.txt">Table of n, a(n) for n = 1..2000</a>
%e 2.6640327972064461556863893943597198104917871791980...
%t RealDigits[x /. FindRoot[x! - 4, {x, 2}, WorkingPrecision -> 120]][[1]] (* _Amiram Eldar_, May 31 2023 *)
%o (PARI) default(realprecision, 100); solve(x=2, 3, gamma(x+1)-4)
%Y The positive solution to x! = n: A319275 (n=3), this sequence (n=4), A319277 (n=5), A129624 (n=40).
%K nonn,cons
%O 1,1
%A _Jianing Song_, Sep 16 2018
|
