|
%I #12 Sep 08 2022 08:45:17
%S 7,11,17,19,23,29,31,43,61,67,73,101,109,137,149,197,199,211,227,233,
%T 239,271,283,337,353,359,373,401,409,479,523,607,617,647,673,701,743,
%U 757,787,809,929,941,947,997,1009,1013,1019,1033,1051,1097,1117,1163
%N Primes p such that 3*p + 10 and 10*p + 3 are primes.
%H Michael De Vlieger, <a href="/A106070/b106070.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[220]], PrimeQ[10#+3]&&PrimeQ[3#+10]&]
%o (Magma) [p: p in PrimesUpTo(5000)|IsPrime(3*p+10) and IsPrime(10*p+3)] // _Vincenzo Librandi_, Jan 30 2011
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
|
