Tetration of complex numbers:
Clear[nn, t, n, k, i];
nn = 85;
t[1, 1] = 1;
t[n_, k_] :=
t[n, k] = If[n >= k, Exp[-Sum[N[I*t[n - i, k]], {i, 1, k - 1}]], I];
Table[t[nn, k]*(k - 1)*I, {k, 1 + 1, 6 + 1}]
Table[N[ProductLog[n*I]], {n, 1, 6}]
By tetration:
{0.374699 + 0.576413 I, 0.683408 + 0.743386 I, 0.898668 + 0.826935 I,
1.06393 + 0.87901 I, 1.19448 + 0.915874 I, 1.31837 + 0.936584 I}
Mathematicas ProductLog:
{0.374699 + 0.576413 I, 0.683408 + 0.743386 I, 0.89871 + 0.826955 I,
1.06384 + 0.879803 I, 1.19805 + 0.917331 I, 1.31129 + 0.945888 I}