OFFSET
1,1
LINKS
W. Keller and J. Richstein Fermat quotients that are divisible by p.
PROG
(PARI) { a(n) = local(p, x, y); if(n==1, return(193)); p=prime(n); x=znprimroot(p^6)^(p^5); vecsort( vector(p-1, i, y=lift(x^i); while(!isprime(y), y+=p^6); y ) )[1] } - Max Alekseyev, May 30 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Nov 29 2006
EXTENSIONS
More terms from Max Alekseyev, May 30 2007
STATUS
approved