%I #22 Dec 01 2022 17:27:39
%S 4,1,9,6,0,0,3,5,2,5,9,8,3,5,6,4,7,8,4,9,8,7,7,5,7,5,3,5,6,6,7,0,0,0,
%T 2,5,3,1,8,0,8,9,3,6,3,1,2,0,0,1,6,0,7,8,0,4,4,1,6,8,1,3,6,1,6,7,7,6,
%U 0,7,8,4,9,3,2,0,5,9,8,0,7,8,0,9,3,8,8,9,8,3,0,2,7,7,7,1,5,4,9,9,8,7,5,1,1,7,1,7,8,3,8,6,0,7,5,4,3,7,5,8
%N Decimal expansion of the solution to Product_{k>=1} (1 - x^k) = x.
%C Fixed point of Euler function. - _Michal Paulovic_, Oct 16 2022
%e 0.41960035259835647849877575356670002531808936312...
%t RealDigits[x /. FindRoot[QPochhammer[x] == x, {x, 1/2}, WorkingPrecision -> 120]][[1]] (* _Vaclav Kotesovec_, Sep 21 2021 *)
%o (PARI) solve(x=0, 1, prodinf(k=1,1-x^k) - x) \\ _Michel Marcus_, Sep 21 2021
%o (PARI) solve(x=0.4, 0.5, eta(log(x)/(2*Pi*I)) - x) \\ _Michal Paulovic_, Oct 16 2022
%Y Cf. A010815, A067687, A206119.
%K nonn,cons
%O 0,1
%A _Ilya Gutkovskiy_, Sep 21 2021