OFFSET
1,1
COMMENTS
LINKS
Takashi Agoh, Karl Dilcher and Ladislav Skula, Fermat Quotients for Composite Moduli, J. Number Theory, Volume 66, Issue 1 (1997), 29-50.
MAPLE
with(numtheory): A245529:=n->`if`( (12 &^ phi(n)-1) mod n^2 = 0, n, NULL): seq(A245529(n), n=2..10^4); # Wesley Ivan Hurt, Jul 26 2014
MATHEMATICA
Select[Range[10^5], PowerMod[12, EulerPhi[#], #^2] == 1 &] (* Alonso del Arte, Jul 27 2014 *)
PROG
(PARI) for(n=2, 1e9, if(Mod(12, n^2)^(eulerphi(n))==1, print1(n, ", ")))
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Felix Fröhlich, Jul 25 2014
EXTENSIONS
a(8)-a(12) from Giovanni Resta, Jan 24 2020
a(13)-a(19) from Giovanni Resta, Jan 27 2020
STATUS
approved