|
%I #10 Nov 14 2019 10:46:05
%S 4219,21577,342037,534637,698239,754099,810367,819229,1081699,1171957,
%T 1382167,1460077,1498789,1614637,2158567,2213389,2228509,2523139,
%U 2664049,2833309,3056959,3073999,3098497,3308497,3522307,3605857
%N Primes p beginning consecutive prime-difference pattern as follows: p, (10, 2, 10, 2, 10), p+34.
%e First term a(1)=p(578)=4219; it is followed by 4229, 4231, 4241, 4243, 4253=p(583) primes, where the 5 corresponding consecutive differences equal {10, 2, 10, 2, 10}. Analogous case: see A022008.
%t First /@ Select[Partition[Prime@ Range@ 258000, 6, 1], Differences[#] == {10, 2, 10, 2, 10} &] (* _Giovanni Resta_, Nov 14 2019 *)
%Y Cf. A001223, A022008.
%K nonn
%O 1,1
%A _Labos Elemer_, Jan 02 2002
|
