OFFSET
1,1
COMMENTS
PROG
(PARI) a(n) = my(p=prime(n)); forprime(q=1, , if(Mod(q, p^2)^(p-1)==1, return(q)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, Jul 12 2022
STATUS
approved