A174343 - OEIS

A174343

Primes p such that p^3+p^2+15*p+18 is also prime.

13, 19, 73, 79, 103, 109, 193, 283, 313, 349, 499, 523, 823, 829, 1069, 1459, 1483, 1579, 2029, 2053, 2389, 2503, 2593, 2713, 2803, 2833, 3463, 3583, 3643, 3733, 4099, 4339, 4423, 4483, 4549, 4759, 4933, 5113, 5179, 5413, 5683, 5779, 6379, 6529, 6673

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

EXAMPLE

For p=13, 13^3+13^2+15*13+18=2579; p=19, 19^3+19^2+15*19+18=7523.

MATHEMATICA

Select[Prime[Range[1000]], PrimeQ[#^3 + #^2 + 15 # + 18]&] (* Vincenzo Librandi, Apr 16 2013 *)

PROG

(Magma) [p: p in PrimesUpTo(10000) | IsPrime(p^3+p^2+15*p+18)];

CROSSREFS