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,1

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]

Mathematica

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

Crossrefs

Cf. A073501.

Sequence in context: A106930 A106929 A173040 * A091075 A288409 A139973

Adjacent sequences: A091487 A091488 A091489 * A091491 A091492 A091493

Keyword

nonn

Author

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

Status

approved