Sitzung S. 273

\(\(p\_*\) == \((p /. 
          FindRoot[
            ArcCot[10] == \(p\ π\)\/2 - 
                Arg[ArithmeticGeometricMean[
                    1, \((1 - I)\) \(\@Sin[
                            p\ π]\) E\^\(I\ p\ π/2\)]], {p, 10\^\(-8\), 10\^\(-5\)}, 
            AccuracyGoal -> MachinePrecision])\)\)