A191562 a(n) = 7^n mod 3*n.
1, 1, 1, 1, 7, 1, 7, 1, 1, 19, 7, 1, 7, 7, 28, 1, 7, 1, 7, 1, 28, 49, 7, 1, 7, 49, 1, 49, 7, 19, 7, 1, 46, 49, 28, 1, 7, 49, 109, 1, 7, 91, 7, 25, 82, 49, 7, 1, 49, 49, 37, 61, 7, 1, 43, 49, 1, 49, 7, 1, 7, 49, 28, 1, 37, 37, 7, 157, 136, 49, 7, 1, 7, 49
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[Modexp(7, n, 3*n): n in [1..100]]; // Vincenzo Librandi, Jun 12 2016
-
Mathematica
Table[PowerMod[7, n, 3 n], {n, 100}] (* Vincenzo Librandi, Jun 12 2016 *) -
PARI
a(n)=lift(Mod(7,3*n)^n) \\ Charles R Greathouse IV, Dec 27 2011