|
%I #8 Sep 08 2022 08:45:51
%S 2,5,7,41,131,311,857,1321,1427,1627,1667,1697,1901,2237,2311,2341,
%T 2357,2957,3167,3331,3767,3881,4567,4637,5237,5881,5927,7477,9187,
%U 11197,11701,12037,12421,12491,13367,13627,14081,14447,16111,16477,18047
%N Primes p such that (p^2+3*p-3) and (p^3+3*p^2-3) are also prime.
%H Vincenzo Librandi, <a href="/A174259/b174259.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5000]], PrimeQ[#^2 + 3 # - 3] && PrimeQ[#^3 + 3 #^2 - 3]&] (* _Vincenzo Librandi_, Apr 10 2013 *)
%o (Magma) [p: p in PrimesUpTo(20000) |IsPrime(p^2+3*p-3)and IsPrime(p^3+3*p^2-3)];
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Mar 14 2010
|
