A123084 Prime quintets of form k, k+30, k+60, k+90, k+120.

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

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