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) isok(k) = { for (s=2, k - 1, if (Mod(s, k)^s == s, return(0))); k > 1 } \\ 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