login
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
OFFSET
1,1
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
Sequence in context: A267995 A201547 A165281 * A271581 A142419 A364968
KEYWORD
nonn,tabf
AUTHOR
STATUS
approved