login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A123084 Prime quintets of form k, k+30, k+60, k+90, k+120. 1

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 16 00:29 EDT 2021. Contains 348034 sequences. (Running on oeis4.)