[go: up one dir, main page]

login
A052242
Initial prime in set of 4 consecutive primes in arithmetic progression with common difference 24.
16
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,1
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 *)
CROSSREFS
Analogous sequences [with common difference in square brackets]: A033451 [6], A033447 [12], A033448 [18], A052242 [24], A052243 [30].
Sequence in context: A252446 A288073 A237240 * A234548 A069315 A022209
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 31 2000
EXTENSIONS
More terms from Harvey P. Dale, Nov 25 2000
Definition clarified by Harvey P. Dale, Jun 17 2014
STATUS
approved