OFFSET
1,1
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..100
PROG
(PARI) a(n) = my(v=[prime(n)]); while(#v < 6, v=concat(v, nextprime(v[#v]+1))); for(b=2, oo, for(k=1, #v, if(Mod(b, v[k]^2)^(v[k]-1)!=1, break, if(k==#v, return(b)))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, May 29 2021
EXTENSIONS
Terms a(10) onward from Max Alekseyev, Oct 10 2023
STATUS
approved