A191561 a(n) = 2^n mod 3*n.
2, 4, 8, 4, 2, 10, 2, 16, 26, 4, 2, 28, 2, 4, 8, 16, 2, 28, 2, 16, 8, 4, 2, 64, 32, 4, 80, 16, 2, 64, 2, 64, 8, 4, 53, 28, 2, 4, 8, 16, 2, 64, 2, 16, 107, 4, 2, 64, 128, 124, 8, 16, 2, 82, 98, 88, 8, 4, 2, 136, 2, 4, 134, 64, 32, 64, 2, 16, 8, 184, 2, 136, 2, 4
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[Modexp(2, n, 3*n): n in [1..100]]; // Vincenzo Librandi, Jun 12 2016
-
Mathematica
Table[PowerMod[2, n, 3 n], {n, 100}] (* Vincenzo Librandi, Jun 12 2016 *)
-
PARI
a(n)=lift(Mod(2,3*n)^n) \\ Charles R Greathouse IV, Dec 27 2011