OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
641 is in the sequence because 641 + 2 = 643, 641 + 2 + 4 = 647 is prime, the prime prior to 641 is 631, the prime after 647 is 653, and the corresponding differences are 10 or 6. The d-pattern is {10,2,4,6}.
MAPLE
P:= select(isprime, [2, seq(i, i=3..3*10^7, 2)]):
G:= P[2..-1]-P[1..-2]:
J:=select(i -> G[i-1] >= 6 and G[i] = 2 and G[i+1] = 4 and G[i+2] >= 6, [$2..nops(G)-2]):
P[J]; # Robert Israel, Oct 10 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 26 2000
STATUS
approved
