A174839 Lists of 4 adjacent primes such that the difference between the highest minus the lowest = 8.

3, 5, 7, 11, 5, 7, 11, 13, 11, 13, 17, 19, 101, 103, 107, 109, 191, 193, 197, 199, 821, 823, 827, 829, 1481, 1483, 1487, 1489, 1871, 1873, 1877, 1879, 2081, 2083, 2087, 2089, 3251, 3253, 3257, 3259, 3461, 3463, 3467, 3469, 5651, 5653, 5657, 5659, 9431, 9433, 9437

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n) >> n log^4 n. - Charles R Greathouse IV, Dec 13 2024

Mathematica

Flatten[Select[Partition[Prime[Range[500]], 4, 1], Last[#]-First[#]==8&]] (* Harvey P. Dale, Oct 01 2013 *)

Prog

(Python)
from sympy import primerange, isprime, prime
# Get first 500 primes
primes = [prime(i) for i in range(1, 501)]  # sympy.prime is 1-indexed
result = []
# Sliding window of length 4
for i in range(len(primes) - 3):
    window = primes[i:i+4]
    if window[-1] - window[0] == 8:
        result.extend(window)  # flatten
print(result)

Crossrefs

Sequence in context: A376786 A335301 A235379 * A245462 A338842 A022457

Adjacent sequences: A174836 A174837 A174838 * A174840 A174841 A174842

Keyword

nonn,tabf

Author

Robert Hutchins, Mar 30 2010

Status

approved