OFFSET
1,4
COMMENTS
This is A065295 restricted to the primes. The plot is significantly different.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
Pär Kurlberg, Florian Luca, and Igor Shparlinski On the fixed points of the map x -> x^x modulo a prime arX1v 1402.4464
MATHEMATICA
f[p_] := Module[{x = Range[p - 1]}, Count[PowerMod[x, x, p] - x, 0]]; Table[f[n], {n, Prime[Range[100]]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Feb 19 2014
STATUS
approved