A238291 Final digit of real part of (n+n*i)^n.
1, 0, 6, 6, 0, 0, 4, 6, 4, 0, 8, 6, 8, 0, 0, 6, 2, 0, 2, 0, 6, 0, 6, 6, 0, 0, 4, 6, 4, 0, 8, 6, 8, 0, 0, 6, 2, 0, 2, 0, 6, 0, 6, 6, 0, 0, 4, 6, 4, 0, 8, 6, 8, 0, 0, 6, 2, 0, 2, 0, 6, 0, 6, 6, 0, 0, 4, 6, 4, 0, 8, 6, 8, 0, 0, 6, 2, 0, 2, 0, 6, 0, 6, 6, 0, 0
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
Programs
-
Mathematica
re[n_, b_] := Mod[b + Re@PowerMod[(n + n I), n, b], b]; Table[re[n, 10], {n, 100}]
Comments