|
%I #15 Sep 08 2022 08:45:17
%S 5,19,29,31,59,61,71,89,101,139,199,229,269,271,281,409,479,601,631,
%T 661,761,811,929,1009,1021,1049,1051,1091,1181,1279,1291,1361,1459,
%U 1499,1511,1601,1609,1709,1889,2099,2141,2339,2381,2399,2411,2539,2579,2729
%N Primes p such that 1*p + 12 and 12*p + 1 are primes.
%t Select[Prime[Range[220]], PrimeQ[12#+1]&&PrimeQ[1#+12]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(p+12) and IsPrime(12*p+1)]; // _Vincenzo Librandi_, Nov 13 2010
%Y Intersection of A046133 and A075704. - _Michel Marcus_, Jan 20 2018
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
|
