OFFSET
1,1
COMMENTS
Initial members of prime quartets that correspond to the difference pattern [4, 8, 4].
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
FORMULA
a(n) == 7 (mod 30).
EXAMPLE
p=97: 97+4=101, 97+12=109, 97+16=113 —> prime quartet: (97, 101, 109, 113).
MAPLE
q:= n-> andmap(i-> isprime(n+4*i), [0, 1, 3, 4]):
select(q, [7+30*i$i=0..4309])[]; # Alois P. Heinz, May 29 2025
MATHEMATICA
Select[Prime[Range[12099]], AllTrue[#+{4, 12, 16}, PrimeQ]&] (* James C. McMahon, May 29 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Yutkin, May 25 2025
STATUS
approved
