1,4

This is A065295 restricted to the primes. The plot is significantly different.

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

f[p_] := Module[{x = Range[p - 1]}, Count[PowerMod[x, x, p] - x, 0]]; Table[f[n], {n, Prime[Range[100]]}]

Cf. A065295, A233518, A233520.

Sequence in context: A331084 A067694 A131810 * A192295 A037195 A271319

Adjacent sequences: A233516 A233517 A233518 * A233520 A233521 A233522

nonn

T. D. Noe, Feb 19 2014

approved