|
| |
|
|
A102326
|
|
Primes p such that the largest prime divisor of p^4+1 is less than p.
|
|
1
| |
|
|
10181, 14051, 18979, 25253, 57173, 58013, 60101, 62497, 65951, 66541, 69457, 75931, 82241, 82261, 84229, 87721, 88339, 88819, 91499, 92333, 95917, 99523, 105557, 107747, 109229, 118493, 118927, 137339, 146291, 155399, 157019
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| p = 10181, 1+p^4 = 10743894862923122 = {2.17.1657.4657.5113.8009, so the largest prime factor is 8009<p = 10181.
|
|
|
MATHEMATICA
| <<NumberTheory`NumberTheoryFunctions` Select[Prime[Range[15000]], Max[PrimeFactorList[1 + #^4]] < # &] (Ray Chandler, Jan 08 2005)
|
|
|
CROSSREFS
| Cf. A000040, A065091, A073501.
Sequence in context: A184205 A128878 A050267 * A105582 A100968 A203056
Adjacent sequences: A102323 A102324 A102325 * A102327 A102328 A102329
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jan 05 2005
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Jan 08 2005
|
| |
|
|
