OFFSET
1,1
LINKS
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
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