|
%I #7 Apr 26 2019 11:06:51
%S 5,11,17,7,13,19,11,17,23,17,23,29,31,37,43,41,47,53,47,53,59,61,67,
%T 73,67,73,79,97,103,109,101,107,113,151,157,163,167,173,179,227,233,
%U 239,251,257,263,257,263,269,271,277,283,347,353,359,367,373,379,557,563
%N Prime trios of form k, k+6, k+12.
%H Harvey P. Dale, <a href="/A123082/b123082.txt">Table of n, a(n) for n = 1..1000</a>
%p i:=1:for k from 1 to 1200 do if isprime(k) and isprime(k+6)and isprime(k+12) then a[i]:=k:a[i+1]:=k+6:a[i+2]:=k+12:i:=i+3 fi od: seq(a[n],n=1..i-1);
%t #+{0,6,12}&/@Select[Prime[Range[150]],AllTrue[#+{6,12},PrimeQ]&] // Flatten (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 26 2019 *)
%Y Cf. A001097.
%K nonn
%O 1,1
%A _Miklos Kristof_, Sep 27 2006
|
