OFFSET
1,2
COMMENTS
Inspired by A262207.
EXAMPLE
For n = 2, a(n) = 27 mod 4 = 3.
MATHEMATICA
Table[Mod[Prime[n]^Prime[n], n^n], {n, 18}] (* Michael De Vlieger, Sep 15 2015 *)
PROG
(PARI) a(n) = (prime(n)^prime(n)) % (n^n);
vector(20, n, a(n))
(Magma) [NthPrime(n)^NthPrime(n) mod n^n: n in [1..20]]; // Vincenzo Librandi, Sep 16 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Altug Alkan, Sep 15 2015
STATUS
approved