cp's OEIS Frontend

A350856 Initial members of prime triples (p, p+2, p+14).

%I A350856 #16 Feb 19 2022 14:29:49
%S A350856 3,5,17,29,59,137,149,179,197,227,269,419,599,617,659,809,1019,1049,
%T A350856 1277,1289,1607,1787,1997,2129,2237,2267,2657,2789,3167,3257,3299,
%U A350856 3329,3359,3527,3557,3917,3929,4217,4229,4259,4547,4637,4649,4787,4799,5009,5099
%N A350856 Initial members of prime triples (p, p+2, p+14).
%C A350856 According to the k-tuple conjecture this sequence is theoretically infinite.
%H A350856 Chris K. Caldwell <a href="https://primes.utm.edu/glossary/xpage/PrimeKtupleConjecture.html">prime k-tuple conjecture</a>
%H A350856 Chris K. Caldwell <a href="https://primes.utm.edu/glossary/xpage/ktuple.html">k-tuple</a>
%p A350856 for a from 3 to 1000 by 2 do
%p A350856 if isprime(a) and isprime(a+2) and isprime(a+14) then
%p A350856 print(a);
%p A350856 end if
%p A350856 end do
%p A350856 # second Maple program:
%p A350856 q:= p-> andmap(isprime, [p, p+2, p+14]):
%p A350856 select(q, [$1..10000])[];  # _Alois P. Heinz_, Jan 28 2022
%t A350856 Select[Range[7000], And @@ PrimeQ[# + {0, 2, 14}] &] (* _Amiram Eldar_, Jan 20 2022 *)
%Y A350856 Cf. A022004 (p,p+2,p+6), A046134 (p,p+2,p+8), A046135 (p,p+2,p+12).
%K A350856 nonn
%O A350856 1,1
%A A350856 _Matt C. Anderson_, Jan 19 2022