A351662 Initial primes of four consecutive primes with consecutive gaps 10, 20, 30.
216421, 393301, 588673, 601687, 627481, 752023, 776257, 801187, 842521, 846427, 892159, 970573, 976117, 1036153, 1100581, 1238833, 1445341, 1713853, 1848337, 2054761, 2134519, 2217349, 2229991, 2276107, 2287861, 2299327, 2303377, 2768341, 2933083, 3091027
Offset: 1
Keywords
Examples
601687, 601697, 601717, and 601747 are four consecutive primes and the gaps between them are 10, 20, and 30.
Programs
-
Mathematica
Prime[SequencePosition[Differences[Prime[Range[250000]]],{10,20,30}][[All,1]]] -
Python
from sympy import nextprime from itertools import islice def agen(): # generator of terms p, q, r, s = 2, 3, 5, 7 while True: if q-p == 10 and r-q == 20 and s-r == 30: yield p p, q, r, s = q, r, s, nextprime(s) print(list(islice(agen(), 30))) # Michael S. Branicky, Feb 19 2022