OFFSET
1,1
COMMENTS
a(21) > 10^9
a(22)-a(28): 39, 4, 128165, 4, 9, 22, 9
a(29) > 10^9
a(30)-a(33): 1123787, 4, 3279, 4
a(34) > 10^9
LINKS
William D. Banks, Florian Luca, Igor E. Shparlinski, Estimates for Wieferich numbers, The Ramanujan Journal, December 2007, Volume 14, Issue 3, pp 361-378.
Takashi Agoh, Karl Dilcher, Ladislav Skula, Fermat Quotients for Composite Moduli, Journal of Number Theory, September 1997, Volume 66, Issue 1, pp 29-50.
PROG
(PARI) for(n=1, 20, forcomposite(c=1, 1e9, if(Mod(n, c^2)^(eulerphi(c))==1, print1(c, ", "); next({2}))); print1("--, "))
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Felix Fröhlich, Nov 21 2014
STATUS
approved