OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
FORMULA
Solutions to {A006530(p^6+1) < p} where p is a prime number.
EXAMPLE
p = 30977, p^6 + 1 = 883560179055825771003237890 = 2*5*13*37*61*113*181*13921*18517*22189*25741, so the largest prime factor is 25741 < p = 30977.
MATHEMATICA
Select[Prime[Range[60000]], Max[PrimeFactorList[1 + #^6]] < # &] (* Ray Chandler, Jan 08 2005 *)
PROG
(PARI) is(k) = isprime(k) && vecmax(factor(k^6+1)[, 1]) < k; \\ Amiram Eldar, Jun 21 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 05 2005
EXTENSIONS
Extended by Ray Chandler, Jan 08 2005
STATUS
approved