OFFSET
0,2
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..1000.
EXAMPLE
1^1 (mod 1)==0; 4^4=256 so 13 (mod 4)==1; 55^55=... so 442 (mod 55)==2, 6^6=46656 so 27 (mod 6)==3; etc.
MATHEMATICA
t = Table[0, {101}]; Do[ a = Mod[Plus @@ IntegerDigits[n^n], n]; If[a < 101 && t[[a + 1]] == 0, t[[a + 1]] = n; Print[{a, n}]], {n, 10000}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, May 17 2008
STATUS
approved