OFFSET
1,1
PROG
(PARI) composite(n) = my(i=0, c=2); while(1, if(!ispseudoprime(c), i++); if(i==n, return(c)); c++)
a273339(n) = forcomposite(c=1, , if(Mod(n, c^2)^(c-1)!=1, return(c)))
a(n) = my(b=2, c=composite(n)); while(a273339(b)!=c, b++); b
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Felix Fröhlich, May 20 2016
STATUS
approved