login
A047078
Primes at which difference pattern X2Y (X and Y >= 6) occurs in A001223.
9
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
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
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 26 2000
STATUS
approved