|
|
A033449
|
|
Lists of 4 primes in arithmetic progression; common difference 6.
|
|
1
|
|
|
251, 257, 263, 269, 1741, 1747, 1753, 1759, 3301, 3307, 3313, 3319, 5101, 5107, 5113, 5119, 5381, 5387, 5393, 5399, 6311, 6317, 6323, 6329, 6361, 6367, 6373, 6379, 12641, 12647, 12653, 12659, 13451, 13457, 13463, 13469, 14741, 14747, 14753
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
for i from 1 by 1 to 4000 do if ithprime(i+1) = ithprime(i) +6 and ithprime(i+2) = ithprime(i) + 12 and ithprime(i+3) = ithprime(i) + 18 then print(ithprime(i), ithprime(i+1), ithprime(i+2), ithprime(i+3)); # Zerinvary Lajos, May 04 2007
|
|
MATHEMATICA
|
Select[Partition[Prime[Range[2000]], 4, 1], Differences[#]=={6, 6, 6}&]// Flatten (* Harvey P. Dale, May 31 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|