%I #27 Aug 17 2023 22:38:05
%S 1867,3457,5647,15727,79687,88807,101107,257857,266677,276037,284737,
%T 340927,354247,375247,402757,419047,427237,463447,470077,626617,
%U 666427,736357,823717,855727,959467,978067,1022377,1043587,1068247,1118857
%N Primes at which difference pattern X4242Y (X and Y >= 6) occurs in A001223.
%C All terms are == 7 (mod 30). - _Zak Seidov_, May 07 2017
%H Michael De Vlieger, <a href="/A052168/b052168.txt">Table of n, a(n) for n = 1..10000</a> (First 528 terms from Zak Seidov.)
%e 1867 is here because the successor primes (1867),1871,1873,1877,1879 give 4242 difference pattern. The primes around this island are 1861 and 1889 in distance 6 and 10 resp. Thus the d-pattern "around 1867" is {6,4,2,4,2,10}. [corrected by _Zak Seidov_, May 07 2017]
%t m=1867; Reap[Do[While[ PrimeQ[m] m = m + 30]; If[
%t m > NextPrime[m, -1] + 5 && AllTrue[m + {4, 6, 10, 12}, PrimeQ] && NextPrime[m + 12] > m + 17, Sow[m]]; m = m + 30, {10^5}]][[2, 1]] (* _Zak Seidov_, May 07 2017 *)
%Y Cf. A001223, A052160, A052162-A052168, A022008, A047078.
%K nonn
%O 1,1
%A _Labos Elemer_, Jan 26 2000
|