A393457 - OEIS

%I #9 Apr 19 2026 05:39:54

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

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

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

%N Decimal expansion of f(x) = (x-1)^(2/3) / (x^(1/3)*log_2(x)) at its minimum x=A393456.

%e 0.60239879280956708453612531010439628138145...

%t f[x_] := (x-1)^(2/3)/(x^(1/3)*Log2[x]); RealDigits[f[x /. FindRoot[f'[x] == 0, {x, 13}, WorkingPrecision -> 120]]][[1]] (* _Amiram Eldar_, Apr 19 2026 *)

%o (PARI) {my(f(x)=(x-1)^(2/3)/(x^(1/3)*log(x)/log(2))); f(solve(x=13,14,f'(x)))}

%Y See A393458 for references.

%Y Cf. A393455, A393456.

%K nonn,cons

%O 0,1

%A _Hugo Pfoertner_, Feb 15 2026