|
%I #7 Sep 17 2023 11:18:08
%S 5,11,17,23,11,17,23,29,41,47,53,59,61,67,73,79,251,257,263,269,601,
%T 607,613,619,641,647,653,659,1091,1097,1103,1109,1481,1487,1493,1499,
%U 1601,1607,1613,1619,1741,1747,1753,1759,1861,1867,1873,1879,2371,2377,2383
%N Prime quartets of form k, k+6, k+12, k+18.
%H Harvey P. Dale, <a href="/A123083/b123083.txt">Table of n, a(n) for n = 1..1000</a>
%p i:=1:for k from 1 to 5000 do if isprime(k) and isprime(k+6)and isprime(k+12)and isprime(k+18) then a[i]:=k:a[i+1]:=k+6:a[i+2]:=k+12:a[i+3]:=k+18:i:=i+4 fi od: seq(a[n],n=1..i-1);
%t Select[Table[p+{0,6,12,18},{p,Prime[Range[400]]}],AllTrue[#,PrimeQ]&]//Flatten (* _Harvey P. Dale_, Sep 17 2023 *)
%Y Cf. A001097.
%K nonn
%O 1,1
%A _Miklos Kristof_, Sep 27 2006
|
