|
%I #11 Sep 08 2022 08:45:17
%S 7,17,67,71,109,113,137,139,151,181,193,197,347,463,479,487,503,557,
%T 617,631,743,769,883,983,997,1061,1361,1523,1543,1753,1831,1847,1931,
%U 1933,2017,2027,2029,2069,2089,2111,2131,2281,2309,2339,2393,2549,2617,2659
%N Primes p such that 40*p - 3 and 40*p + 3 are both primes.
%H Michael De Vlieger, <a href="/A106010/b106010.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[400]], PrimeQ[40#+3]&&PrimeQ[40#-3]&]
%o (Magma) [p: p in PrimesUpTo(5000)|IsPrime(40*p+3) and IsPrime(40*p-3)] // _Vincenzo Librandi_, Jan 30 2011
%K nonn
%O 1,1
%A _Zak Seidov_, May 05 2005
|
