OFFSET
1,1
COMMENTS
Equivalently, primes p such that p, p+6, p+12, p+14 and p+20 are consecutive primes.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
a(n) == 17 (mod 30). - Amiram Eldar, Feb 22 2025
EXAMPLE
257 is in the sequence since 257, 263 = 257 + 6, 269 = 257 + 12, 271 = 257 + 14 and 277 = 257 + 20 are consecutive primes.
MATHEMATICA
Select[Partition[Prime[Range[50000]], 5, 1], Differences[#] == {6, 6, 2, 6} &][[;; , 1]] (* Amiram Eldar, Feb 22 2025 *)
PROG
(PARI) list(lim) = {my(p1 = 2, p2 = 3, p3 = 5, p4 = 7); forprime(p5 = 11, lim, if(p2 - p1 == 6 && p3 - p2 == 6 && p4 - p3 == 2 && p5 - p4 == 6, print1(p1, ", ")); p1 = p2; p2 = p3; p3 = p4; p4 = p5); } \\ Amiram Eldar, Feb 22 2025
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Labos Elemer, Dec 19 2002
EXTENSIONS
Edited by Dean Hickerson, Dec 20 2002
STATUS
approved