|
|
A102328
|
|
Primes p such that the largest prime divisor of 1+p^6 is less than p.
|
|
1
|
|
|
30977, 69127, 104681, 109807, 114671, 141637, 146057, 160319, 160639, 170371, 171169, 176087, 211723, 216119, 217081, 319321, 381673, 389083, 390151, 416219, 437401, 484609, 492257, 525571, 564713, 565241, 574127, 591601, 612173, 621259
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
Solutions to {A006530(1+p^6) < p} where p is a prime number.
|
|
EXAMPLE
|
p = 30977, 1+p^6 = 883560179055825771003237890 = 2*5*13*37*61*113*181*13921*18517*22189*25741, so the largest prime factor is 25741 < p = 30977.
|
|
MATHEMATICA
|
<<NumberTheory`NumberTheoryFunctions` Select[Prime[Range[60000]], Max[PrimeFactorList[1 + #^6]] < # &] (* Ray Chandler, Jan 08 2005 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|