login
A123085
Table read by rows: rows give successive prime sextets of form k, k+30, k+60, k+90, k+120, k+150.
1
7, 37, 67, 97, 127, 157, 107, 137, 167, 197, 227, 257, 359, 389, 419, 449, 479, 509, 541, 571, 601, 631, 661, 691, 2221, 2251, 2281, 2311, 2341, 2371, 6673, 6703, 6733, 6763, 6793, 6823, 7457, 7487, 7517, 7547, 7577, 7607, 10103, 10133, 10163, 10193, 10223, 10253
OFFSET
1,1
EXAMPLE
Table starts:
7, 37, 67, 97, 127, 157;
107, 137, 167, 197, 227, 257;
359, 389, 419, 449, 479, 509;
...
MAPLE
i:=1:for k from 1 to 30000 do if isprime(k) and isprime(k+30)and isprime(k+60) and isprime(k+90) and isprime(k+120)and isprime(k+150) then a[i]:=k: a[i+1]:=k+30:a[i+2]:=k+60:a[i+3]:=k+90:a[i+4]:=k+120:a[i+5]:=k+150:i:=i+6 fi od: seq(a[n], n=1..i-1);
MATHEMATICA
Select[#+{0, 30, 60, 90, 120, 150}&/@Prime[Range[1500]], AllTrue[#, PrimeQ]&]//Flatten (* Harvey P. Dale, Sep 05 2023 *)
CROSSREFS
Cf. A001097, A156204 (first column).
Sequence in context: A104914 A032588 A123084 * A128471 A168003 A132231
KEYWORD
nonn,tabf
AUTHOR
Miklos Kristof, Sep 27 2006
STATUS
approved