|
%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
|
