login
A052163
Primes at which the difference pattern X24Y (X and Y >= 6) occurs in A001223.
10
347, 641, 1277, 1607, 2237, 2267, 2657, 3527, 3671, 3917, 4001, 4127, 4637, 4931, 4967, 5477, 5501, 6197, 8087, 8231, 8537, 8861, 9461, 10331, 10427, 11171, 11777, 12107, 12917, 13757, 13901, 14081, 14321, 14627, 17027, 18251, 19991, 20477
OFFSET
1,1
LINKS
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
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 26 2000
STATUS
approved