A174343 - OEIS

%I #9 Sep 08 2022 08:45:51

%S 13,19,73,79,103,109,193,283,313,349,499,523,823,829,1069,1459,1483,

%T 1579,2029,2053,2389,2503,2593,2713,2803,2833,3463,3583,3643,3733,

%U 4099,4339,4423,4483,4549,4759,4933,5113,5179,5413,5683,5779,6379,6529,6673

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

%H Vincenzo Librandi, <a href="/A174343/b174343.txt">Table of n, a(n) for n = 1..1000</a>

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

%t Select[Prime[Range[1000]], PrimeQ[#^3 +  #^2 + 15 # + 18]&] (* _Vincenzo Librandi_, Apr 16 2013 *)

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

%Y Subsequence of A002476.

%K nonn,easy

%O 1,1

%A _Vincenzo Librandi_, Mar 16 2010