|
%I #28 Mar 15 2024 02:25:24
%S 7,19,31,61,97,127,139,181,229,271,337,409,421,607,631,811,1009,1021,
%T 1039,1051,1279,1291,1471,1597,1609,1657,1777,1861,1867,1987,2017,
%U 2131,2371,2539,2647,2677,2719,2791,3109,3319,3361,3457,3517,3529,3547,3571,3907
%N Prime p such that p, p+10, p+12 are all primes.
%C All terms are congruent to 1 (mod 6). - _Zak Seidov_, Oct 28 2021
%H Salvatore Di Guida, <a href="/A212492/b212492.txt">Table of n, a(n) for n = 1..85</a>
%t Select[Range[5000], PrimeQ[#] && PrimeQ[#+10] && PrimeQ[#+12] &] (* _T. D. Noe_, May 18 2012 *)
%o (Python)
%o from sympy import isprime, primerange
%o def ok(p): return isprime(p+10) and isprime(p+12)
%o print(list(filter(ok, primerange(1, 3910)))) # _Michael S. Branicky_, Oct 28 2021
%K nonn
%O 1,1
%A _Salvatore Di Guida_, May 18 2012
|
