%I A059527
%S A059527 1,3,3,7,2,3,5,7,0,1,4,3,0,6,8,9,4,0,8,9,0,1,1,6,2,1,4,3,1,9,3,7,1,0,6,
%T A059527 1,2,5,3,9,5,0,2,1,3,8,4,6,0,5,1,2,4,1,8,8,7,6,3,1,2,7,8,1,9,1,4,3,5,0,
%U A059527 5,3,1,3,6,1,2,0,4,9,8,8,4,1,8,8,8,1,3,2,3,4,3,8,7,9,4,0,1,5,6,1,0,3,8
%N A059527 Decimal expansion of imaginary part of solution to z = log z.
%C A059527 Repeatedly take logs, starting from any number not equal to 0, 1, e, 
               e^e, e^(e^e), etc. and you will converge to 0.31813150... + 1.33723570...*I.
%D A059527 Wolfram Research, Mathematica, Version 4.1.0.0, Help Browser, under the 
               function FixedPoint.
%e A059527 R(x)=0.31813150520476413531265425158766451720351761387139986692237... 
               + 1.33723570143068940890116214319371061253950213846051241887631... 
               *i.
%t A059527 RealDigits[ Im[ N[ FixedPoint[ Log, 1 + I, 910], 125]]] [[1]]
%Y A059527 Real part is A059526.
%Y A059527 Sequence in context: A066358 A114187 A118031 this_sequence A101457 A076217 
               A089488
%Y A059527 Adjacent sequences: A059524 A059525 A059526 this_sequence A059528 A059529 
               A059530
%K A059527 cons,nonn,nice
%O A059527 1,2
%A A059527 Fabian Rothelius (fabian.rothelius(AT)telia.com), Jan 21 2001
%E A059527 More terms from Vladeta Jovovic (vladeta(AT)eunet.rs), Feb 26 2001
%E A059527 Edited and extended by Robert G. Wilson v (kspaint.com), Aug 22 2002