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

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

Subsequence of A002476.

Sequence in context: A291862 A217065 A339917 * A158332 A241486 A180531

Adjacent sequences: A174340 A174341 A174342 * A174344 A174345 A174346

Keyword

nonn,easy

Author

Vincenzo Librandi, Mar 16 2010

Status

approved