|
%I #9 Sep 08 2022 08:45:41
%S 5,13,19,23,29,53,79,83,89,113,139,149,163,173,193,223,239,313,379,
%T 443,449,503,599,613,643,683,709,733,739,743,809,839,919,953,1069,
%U 1153,1163,1279,1283,1289,1303,1409,1453,1493,1549,1553,1579,1609,1723,1993,1999
%N Primes p such that p+18 and p+144 are both prime.
%C A153418 INTERSECT A156107. [_Bruno Berselli_, Nov 01 2012]
%H Vincenzo Librandi, <a href="/A156111/b156111.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2000]], And @@ PrimeQ[{# + 18, # + 144}]&] (* _Vincenzo Librandi_, Oct 30 2012 *)
%o (Magma) [p: p in PrimesUpTo(2000)|IsPrime(p + 18) and IsPrime (p + 144)]; // _Vincenzo Librandi_, Oct 30 2012
%Y Cf. A153418, A156107.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Feb 08 2009
%E 13 inserted and extended by _R. J. Mathar_, Feb 19 2009
|
