A216097 3^n mod 10000.
1, 3, 9, 27, 81, 243, 729, 2187, 6561, 9683, 9049, 7147, 1441, 4323, 2969, 8907, 6721, 163, 489, 1467, 4401, 3203, 9609, 8827, 6481, 9443, 8329, 4987, 4961, 4883, 4649, 3947, 1841, 5523, 6569, 9707, 9121, 7363, 2089, 6267, 8801, 6403, 9209, 7627, 2881, 8643, 5929, 7787, 3361, 83, 249, 747
Offset: 0
Links
- V. Raman and Vincenzo Librandi, Table of n, a(n) for n = 0..1000 (first 500 terms from V. Raman)
Programs
-
Magma
[Modexp(3, n, 10000): n in [0..110]]; // Vincenzo Librandi, Aug 16 2016
-
Mathematica
PowerMod[3,Range[0,60],10000] (* Harvey P. Dale, Oct 18 2015 *)
-
PARI
for(i=0, 100, print(3^i%10000" "))
Extensions
Definition corrected by Zak Seidov, Jul 27 2014
a(0) = 1, offset changed by Vincenzo Librandi, Aug 16 2016
Comments