|
%I #16 Sep 08 2022 08:45:17
%S 2,7,13,19,29,103,113,131,251,331,443,449,503,509,653,757,761,769,839,
%T 1163,1231,1423,1427,1471,1583,1637,1709,1847,1861,1951,1979,2017,
%U 2053,2081,2099,2311,2549,2659,2707,2729,2749,2851,2879,2963,3079,3221,3257
%N Primes p such that 50*p - 3 and 50*p + 3 are both primes.
%H Michael De Vlieger, <a href="/A106011/b106011.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[400]], PrimeQ[50#+3]&&PrimeQ[50#-3]&]
%o (Magma) [p: p in PrimesUpTo(100000)| IsPrime(50*p-3) and IsPrime(50*p+3)] // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 05 2005
|
