A052162 Primes at which difference pattern X4Y (X and Y >= 6) occurs in A001223.

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

Author

Labos Elemer, Jan 26 2000

Keywords

• nonn

Examples

			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]}.
		

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001223, A052160, A052162-A052168, A022008, A047078.

Programs

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 *)