login
This site is supported by donations to The OEIS Foundation.

 

Logo

"Email this user" was broken Aug 14 to 9am Aug 16. If you sent someone a message in this period, please send it again.

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
7, 37, 67, 97, 127, 11, 41, 71, 101, 131, 37, 67, 97, 127, 157, 107, 137, 167, 197, 227, 137, 167, 197, 227, 257, 151, 181, 211, 241, 271, 277, 307, 337, 367, 397, 359, 389, 419, 449, 479, 389, 419, 449, 479, 509, 401, 431, 461, 491, 521, 541, 571, 601, 631 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

MAPLE

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);

MATHEMATICA

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 *)

CROSSREFS

Cf. A001097.

Sequence in context: A086110 A104914 A032588 * A123085 A128471 A168003

Adjacent sequences:  A123081 A123082 A123083 * A123085 A123086 A123087

KEYWORD

nonn

AUTHOR

Miklos Kristof, Sep 27 2006

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy .

Last modified August 18 23:37 EDT 2017. Contains 290781 sequences.