%I #23 May 28 2018 19:22:05
%S 8,8,5,3,0,2,9,2,2,6,3,1,7,2,0,6,0,1,7,3,5,6,1,1,1,6,2,3,4,1,0,6,4,9,
%T 9,5,1,8,9,5,7,7,5,3,3,9,7,9,6,7,0,9,8,4,2,1,2,1,5,3,2,7,3,0,4,4,1,4,
%U 0,4,3,1,4,8,2,6,3,9,0,4,6,3,8,2,1,5,3,8,2,2,8,5,4,0,9,2,3,7,3,1,9,0,1,1,7,8
%N Decimal expansion of the real part of the continued exponential i/Pi.
%C This is the real part of e^((i/Pi)*e^((i/Pi)*e^((i/Pi)...))).
%F Equals Re(Pi*i*LambertW(-i/Pi)).
%e 0.88530292263172060173561116234106499518957753397967...
%t Re[Pi*I*N[ProductLog[-I/Pi], 100]]
%Y Cf. A049006, A077589, A077590, A305200, A305202, A305210.
%K nonn,cons
%O 0,1
%A _Keerthi Vasan Gopala_, May 27 2018
|