login
A174343
Primes p such that p^3+p^2+15*p+18 is also prime.
1
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
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
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Mar 16 2010
STATUS
approved