OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..10000
MAPLE
a:= n-> ((<<0|1>, <1|1>>^n)[2, 1]) &^n mod ithprime(n):
seq(a(n), n=1..100); # Alois P. Heinz, Apr 15 2019
MATHEMATICA
Table[PowerMod[Fibonacci[n], n, Prime[n]], {n, 70}]
PROG
(Magma) [Modexp(Fibonacci(n), n, NthPrime(n)): n in [1..70]];
(PARI) a(n) = lift(Mod(fibonacci(n), prime(n))^n); \\ Michel Marcus, Apr 16 2019
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Vincenzo Librandi, Apr 15 2019
STATUS
approved