login
A154823
Primes p of the form : p+p^2+p^3-+8=prime.
1
3, 37, 157, 373, 877, 2083, 3607, 4153, 6043, 6577, 8737, 10993, 11677, 14029, 16333, 18253, 19429, 20023, 20443, 20743, 20899, 21757, 23227, 24733, 24859, 28477, 28687, 29347, 30223, 32203, 32833, 35869, 36529, 37447, 38833, 42073, 43789
OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p+p^2+p^3-8]&&PrimeQ[p+p^2+p^3+8], AppendTo[lst, p]], {n, 2*8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved