OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
MAPLE
seq(3 &^ n mod ithprime(n), n=1..65); # Muniru A Asiru, Mar 12 2018
MATHEMATICA
Array[PowerMod[3, #, Prime@#]&, 80]
PROG
(Magma) [Modexp(3, n, NthPrime(n)): n in [1..80]];
(PARI) a(n) = lift(Mod(3, prime(n))^n); \\ Michel Marcus, Jan 11 2018
(GAP) P:=Filtered([1..1500], IsPrime);; List([1..65], n->PowerModInt(3, n, P[n])); # Muniru A Asiru, Mar 12 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 11 2018
STATUS
approved