OFFSET
1,1
COMMENTS
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..36
PROG
(PARI) a111671(plimit) = {my (n=1, L=List()); forprime (p=5, plimit, my (x=(p-1)^(n/(n+1)), F=factor(p-1), mF=F[#F[, 2], 1]); if (mF>x, listput(L, p); n++)); L};
a111671(10^7) \\ Hugo Pfoertner, Dec 12 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Aug 15 2005
EXTENSIONS
a(28)-a(34) from Hugo Pfoertner, Dec 12 2023
STATUS
approved