%I #18 Jul 29 2017 19:09:57
%S 67,1447,2377,2707,5437,5737,7207,9337,11827,12037,19207,21487,21517,
%T 23197,26107,26947,28657,31147,31177,35797,37357,37567,42697,50587,
%U 52177,65167,67927,69997,71707,74197,79147,81547,103087,103387,106657
%N Initial term in sequence of four consecutive primes separated by 3 consecutive differences each <=6 (i.e., when d=2,4 or 6) and forming d-pattern=[4,2,6]; short d-string notation of pattern = [426].
%C Subsequence of A022005. - _R. J. Mathar_, May 06 2017
%H R. J. Mathar, <a href="/A078850/b078850.txt">Table of n, a(n) for n = 1..1000</a>
%F Primes p = p(i) such that p(i+1)=p+4, p(i+2)=p+4+2, p(i+3)=p+4+2+6.
%e p=67,67+4=71,67+4+2=73,67+4+2+6=79 are consecutive primes.
%t d = {4, 2, 6}; First /@ Select[Partition[Prime@ Range@ 12000, Length@ d + 1, 1], Differences@ # == d &] (* _Michael De Vlieger_, May 02 2016 *)
%Y Cf. analogous prime quadruple sequences with various possible {2, 4, 6}-difference-patterns in brackets: A007530[242], A078847[246], A078848[264], A078849[266], A052378[424], A078850[426], A078851[462], A078852[466], A078853[624], A078854[626], A078855[642], A078856[646], A078857[662], A078858[664], A033451[666].
%K nonn
%O 1,1
%A _Labos Elemer_, Dec 11 2002
%E Listed terms verified by _Ray Chandler_, Apr 20 2009
|