OFFSET
1,3
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..100
EXAMPLE
a(5) = 53 as 5^5 = 3125 = (4^4)*12 + 53.
MATHEMATICA
Table[ Mod[ n^n, (n - 1)^(n - 1)], {n, 2, 20} ]
Join[{1}, Table[PowerMod[n, n, (n-1)^(n-1)], {n, 2, 20}]] (* Harvey P. Dale, Dec 14 2017 *)
PROG
(PARI) { for (n=1, 100, a=n^n % (n-1)^(n-1); if (n==1, a=1); write("b066611.txt", n, " ", a) ) } \\ Harry J. Smith, Mar 12 2010
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Dec 24 2001
EXTENSIONS
More terms from Robert G. Wilson v, Dec 26 2001
STATUS
approved