|
%I #15 Sep 08 2022 08:45:17
%S 7,37,97,151,163,181,331,337,487,547,571,643,727,757,967,1033,1087,
%T 1093,1303,1423,1471,1567,1831,1987,2083,2113,2221,2251,2281,2671,
%U 2683,3121,3187,3607,3847,3931,4111,4201,4447,4663,4993,5023,5791,6073,6343,6553
%N Primes p such that 1*p + 16 and 16*p + 1 are primes.
%t Select[Prime[Range[220]], PrimeQ[16#+1]&&PrimeQ[1#+16]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(p+16) and IsPrime(16*p+1)]; // _Vincenzo Librandi_, Nov 13 2010
%Y Intersection of A049488 and A155943. - _Michel Marcus_, Jan 20 2018
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
|
