A091490 Primes p such that all prime divisors of p^2 + p + 1 are less than p.

67, 79, 137, 149, 163, 181, 191, 211, 229, 263, 269, 277, 313, 373, 431, 439, 499, 521, 571, 631, 653, 787, 809, 811, 821, 823, 919, 947, 971, 991, 997, 1049, 1069, 1087, 1109, 1129, 1153, 1231, 1237, 1283, 1291, 1367, 1429, 1451, 1459, 1471, 1493, 1511

Offset: 1

Author

R. K. Guy and Robert G. Wilson v, Jan 14 2004

Keywords

• nonn

Links

• R. J. Mathar, Table of n, a(n) for n = 1..4725
• Robin Chapman, Comments on the Somon Davis paper
• Simon Davis, A Proof of the Odd Perfect Number Conjecture, arXiv:hep-th/0401052 [But see the comments on this paper by Robin Chapman]

Crossrefs

Cf. A073501.

Programs

Mathematica

PrimeFactors[ n_Integer ] := Flatten[ Table[ #[ [ 1 ] ], {1} ] & /@ FactorInteger[ n ] ]; Prime[ Select[ Range[ 242 ], Prime[ # ] > PrimeFactors[ Prime[ # ]^2 + Prime[ # ] + 1 ][ [ -1 ] ] & ] ]