OFFSET
1,1
COMMENTS
For all these the only value of s such that s^s mod n = s is s=1; all the values appear to be primes.
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..100
PROG
(PARI) { n=0; for (m = 2, 10^9, a=1; for (s=2, m - 1, if (s^s % m == s, a++; break)); if (a==1, write("b065296.txt", n++, " ", m); if (n==100, return)) ) } [Harry J. Smith, Oct 15 2009]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Ayres (jonathan.ayres(AT)btinternet.com), Oct 28 2001
EXTENSIONS
Corrected by T. D. Noe, Nov 01 2006
STATUS
approved