OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
Solutions to {A006530(1 + p^5) < p} where p is a prime.
EXAMPLE
p = 1753, 1 + p^5 = 16554252702583994 = 2*41*151*691*877*1361*1621, so the largest prime factor is 1621 < p = 1753.
MATHEMATICA
Select[Prime[Range[15000]], Max[PrimeFactorList[1 + #^5]] < # &] (* Ray Chandler, Jan 08 2005 *)
Select[Prime[Range[12000]], FactorInteger[#^5+1][[-1, 1]]<#&] (* Harvey P. Dale, Mar 14 2011 *)
PROG
(PARI) isok(p)= isprime(p) && (vecmax(factor(p^5+1)[, 1]) < p); \\ Michel Marcus, Jul 11 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 05 2005
EXTENSIONS
Extended by Ray Chandler, Jan 08 2005
STATUS
approved