OFFSET
1,1
FORMULA
Equals x*(x-1) where x = A338460.
EXAMPLE
9.45193981344780631141075022470840...
MATHEMATICA
f[x_] := Log[x!]*{Log[x!]+1}-x*{x-1};
root = FindRoot[f[x] == 0, {x, 3}, WorkingPrecision -> 100];
y=root;
z=x/. y;
RealDigits[Log[z!]*{Log[z!]+1}]
PROG
(PARI) my(y=solve(x=3, 4, lngamma(x+1)-x+1)); y*(y-1) \\ Michel Marcus, Jan 28 2025
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Michael P. May, Jan 21 2025
STATUS
approved