|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|