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

29, 59, 137, 149, 179, 239, 269, 419, 431, 521, 569, 599, 659, 809, 1019, 1031, 1049, 1061, 1151, 1229, 1289, 1319, 1619, 1721, 1931, 1949, 2027, 2111, 2129, 2309, 2339, 2549, 2591, 2729, 2789, 2969, 2999, 3119, 3299, 3329, 3359, 3371, 3389, 3539, 3557

Offset

1,1

Links

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

Example

59 is here because 59 + 2 = 61 is prime, but the difference pattern around 59 is {[53] 6 [59] 2 [61] 6 [67]}.

Mathematica

Select[Prime@ Range[2, 500], Times @@ Boole@ {First@ # >= 6, #[[2]] == 2, Last@ # >= 6} == 1 &@ Differences@ Prime[# + Range[-1, 2]] &@ PrimePi@ # &] (* Michael De Vlieger, Jul 04 2016 *)

Crossrefs

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

Sequence in context: A161928 A140340 A140754 * A073651 A042672 A042670

Adjacent sequences: A047075 A047076 A047077 * A047079 A047080 A047081

Keyword

nonn

Author

Labos Elemer, Jan 26 2000

Status

approved