Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A052162
Primes at which difference pattern X4Y (X and Y >= 6) occurs in A001223.
15
79, 127, 163, 379, 397, 439, 487, 499, 673, 739, 757, 769, 907, 937, 967, 1009, 1213, 1549, 1567, 1579, 1597, 2203, 2293, 2347, 2389, 2437, 2473, 2539, 2617, 2749, 2833, 2857, 2953, 3019, 3037, 3079, 3187, 3217, 3319, 3343, 3613, 3697, 3793, 3877, 3907
OFFSET
1,1
LINKS
EXAMPLE
127 is in the sequence because 127 + 4 = 131 is prime, but the difference pattern around 127 is {[113] 14 [127] 4 [131] 6 [137]}.
MATHEMATICA
s = Differences@ Prime@ Range[600]; Prime@ Select[Position[s, 4][[All, 1]], And[s[[# - 1]] >= 6, s[[# + 1]] >= 6] &] (* Michael De Vlieger, Aug 17 2023 *)
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 26 2000
STATUS
approved