A102325 Primes p such that the largest prime divisor of p^3 + 1 is less than p.

17, 19, 23, 31, 101, 103, 173, 179, 257, 263, 293, 353, 373, 431, 467, 491, 521, 563, 593, 619, 641, 677, 719, 739, 773, 821, 829, 857, 859, 863, 881, 929, 941, 953, 1031, 1051, 1087, 1091, 1109, 1129, 1229, 1297, 1327, 1399, 1433, 1487, 1489, 1499, 1583

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Example

p = 17, 1 + p^3 = 1 + 4913 = 2*3*3*3*7*13, so the largest prime factor is 13 < p = 17.

Mathematica

<<NumberTheory`NumberTheoryFunctions` Select[Prime[Range[250]], Max[PrimeFactorList[1 + #^3]] < # &] (* Ray Chandler, Jan 08 2005 *)

Crossrefs

Cf. A000040, A065091, A073501, A102326-A102330.

Sequence in context: A289685 A144487 A108266 * A231326 A038711 A288613

Adjacent sequences: A102322 A102323 A102324 * A102326 A102327 A102328

Keyword

nonn

Author

Labos Elemer, Jan 05 2005

Status

approved