|
%I #15 Sep 09 2017 23:19:56
%S 29,59,137,149,179,239,269,419,431,521,569,599,659,809,1019,1031,1049,
%T 1061,1151,1229,1289,1319,1619,1721,1931,1949,2027,2111,2129,2309,
%U 2339,2549,2591,2729,2789,2969,2999,3119,3299,3329,3359,3371,3389,3539,3557
%N Primes at which difference pattern X2Y (X and Y >= 6) occurs in A001223.
%H Michael De Vlieger, <a href="/A047078/b047078.txt">Table of n, a(n) for n = 1..10000</a>
%e 59 is here because 59 + 2 = 61 is prime, but the difference pattern around 59 is {[53] 6 [59] 2 [61] 6 [67]}.
%t 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 *)
%Y Cf. A001223, A022008, A052160, A052162-A052168.
%K nonn
%O 1,1
%A _Labos Elemer_, Jan 26 2000
|
