OFFSET
1,1
COMMENTS
PROG
(PARI) minprimb(n) = forprime(q=1, , if(Mod(q, n^2)^(n-1)==1, return(q)))
my(r=0); forprime(p=1, , if(minprimb(p) > r, print1(p, ", "); r=minprimb(p)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, Sep 02 2017
EXTENSIONS
a(37)-a(44) from Giovanni Resta, Sep 02 2017
STATUS
approved