|
%I #5 Feb 19 2017 09:28:44
%S 7,37,67,97,127,11,41,71,101,131,37,67,97,127,157,107,137,167,197,227,
%T 137,167,197,227,257,151,181,211,241,271,277,307,337,367,397,359,389,
%U 419,449,479,389,419,449,479,509,401,431,461,491,521,541,571,601,631
%N Prime quintets of form k, k+30, k+60, k+90, k+120.
%H Harvey P. Dale, <a href="/A123084/b123084.txt">Table of n, a(n) for n = 1..1000</a>
%p i:=1:for k from 1 to 2000 do if isprime(k) and isprime(k+30)and isprime(k+60) and isprime(k+90) and isprime(k+120)then a[i]:=k:a[i+1]:=k+30:a[i+2]:=k+60: a[i+3]:=k+90:a[i+4]:=k+120:i:=i+5 fi od: seq(a[n],n=1..i-1);
%t Select[Flatten[Table[{n+(30*Range[0,4])},{n,Prime[Range[100]]}],1], AllTrue[ #,PrimeQ]&]//Flatten (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 19 2017 *)
%Y Cf. A001097.
%K nonn
%O 1,1
%A _Miklos Kristof_, Sep 27 2006
|
