A182546 Decimal expansion of | log_phi(i) |, where phi is the golden ratio and i is the imaginary unit.
3, 2, 6, 4, 2, 5, 1, 3, 0, 2, 6, 3, 6, 4, 9, 6, 9, 0, 6, 7, 3, 1, 5, 3, 3, 6, 7, 8, 4, 3, 6, 2, 9, 4, 9, 0, 7, 8, 1, 4, 9, 1, 0, 3, 9, 3, 1, 5, 8, 8, 0, 5, 1, 8, 1, 8, 9, 6, 3, 2, 6, 6, 9, 3, 9, 9, 8, 2, 1, 2, 5, 6, 9, 4, 1, 5, 2, 0, 6, 3, 8, 1, 5, 5, 9, 0, 6, 4, 1, 6, 4, 3, 5, 6, 0, 9, 1, 4, 8, 5, 6, 1, 9, 0, 5
Offset: 1
Examples
3.26425130263649690673153367843629490781491039315880...
Programs
-
Mathematica
RealDigits[ Im[N[Log[I]/Log[GoldenRatio], 105]]] [[1]] RealDigits[Abs[Log[GoldenRatio,I]],10,120][[1]] (* Harvey P. Dale, Sep 22 2018 *)
Formula
Equals |Im(Log(i))/Log(A001622)|