A052242 - OEIS

%I #17 Jun 17 2014 15:48:00

%S 1397609,1436339,2270459,4181669,4231919,4425599,4650029,4967329,

%T 7124099,8254049,8431369,9000379,9149639,11343509,11584009,11734249,

%U 12867319,13723009,14461229,14590159,15587659,15776239,15932899

%N Initial prime in set of 4 consecutive primes in arithmetic progression with common difference 24.

%H Zak Seidov, <a href="/A052242/b052242.txt">Table of n, a(n) for n = 1..1000</a>

%H <a href="/index/Pri#primes_AP">Index entries for sequences related to primes in arithmetic progressions</a>

%t A052242 = Reap[For[p = 2, p < 16000000, p = NextPrime[p], p2 = NextPrime[p]; If[p2 - p == 24, p3 = NextPrime[p2]; If[p3 - p2 == 24, p4 = NextPrime[p3]; If[p4 - p3 == 24, Print[p]; Sow[p]]]]]][[2, 1]] (* _Jean-François Alcover_, Jun 28 2012 *)

%t Transpose[Select[Partition[Prime[Range[1100000]],4,1],Union[ Differences[#]] == {24}&]][[1]] (* _Harvey P. Dale_, Jun 17 2014 *)

%Y Analogous sequences [with common difference in square brackets]: A033451 [6], A033447 [12], A033448 [18], A052242 [24], A052243 [30].

%K nonn

%O 1,1

%A _Labos Elemer_, Jan 31 2000

%E More terms from _Harvey P. Dale_, Nov 25 2000

%E Definition clarified by _Harvey P. Dale_, Jun 17 2014