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

1397609, 1436339, 2270459, 4181669, 4231919, 4425599, 4650029, 4967329, 7124099, 8254049, 8431369, 9000379, 9149639, 11343509, 11584009, 11734249, 12867319, 13723009, 14461229, 14590159, 15587659, 15776239, 15932899

Offset: 1

Author

Labos Elemer, Jan 31 2000

Keywords

• nonn

Links

• Zak Seidov, Table of n, a(n) for n = 1..1000
• Index entries for sequences related to primes in arithmetic progressions

Crossrefs

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

Programs

Mathematica

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 *)
Transpose[Select[Partition[Prime[Range[1100000]],4,1],Union[ Differences[#]] == {24}&]][[1]] (* Harvey P. Dale, Jun 17 2014 *)

Extensions

More terms from Harvey P. Dale, Nov 25 2000

Definition clarified by Harvey P. Dale, Jun 17 2014