|
%I #16 Sep 08 2022 08:45:17
%S 11,13,29,53,59,127,241,293,307,409,419,631,853,907,967,1063,1091,
%T 1093,1123,1201,1429,1459,1663,1789,1861,2129,2281,2719,2801,2803,
%U 3049,3167,3301,3307,3331,3833,3863,3889,3931,4201,4217,4231,4283,4451,4519,4621
%N Primes p such that 100*p +- 3 are primes.
%H Robert Israel, <a href="/A106014/b106014.txt">Table of n, a(n) for n = 1..10000</a>
%p select(t -> isprime(t) and isprime(100*t-3) and isprime(100*t+3),
%p [seq(i,i=3...10000,2)]); # _Robert Israel_, Nov 11 2018
%t Select[Prime[Range[400]], PrimeQ[100#+3]&&PrimeQ[100#-3]&]
%o (Magma) [p: p in PrimesUpTo(100000)| IsPrime(100*p-3) and IsPrime(100*p+3)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 05 2005
|
