i

Author

Eric W. Weisstein
April 15, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/ComplexAnalysis/i.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/i.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

(i^i)

N[I^I,40]//Chop

NestList[Power[I,#]&,I,5]

<<Graphics`MultipleListPlot`;
<<Graphics`Colors`;

MultipleListPlot[Through[{Re,Im}[NestList[Power[I,#]&,I,50]]],PlotJoined->True,
PlotStyle->{Red,Blue},
SymbolShape->None,
AxesLabel->{TraditionalForm[n],""}
]

N[Nest[Power[I,#]&,I,100],20]

N[c=-ProductLog[-Log[I]]/Log[I],20]

c