OFFSET
1,1
COMMENTS
16763, 16787, 16811 16763+24=16787, 16787+24=16811 etc...
MAPLE
for i from 1 by 1 to 20000 do > if ithprime(i+1) = ithprime(i) +24 and ithprime(i+2) = ithprime(i) + 48 then print(ithprime(i), ithprime(i+1), ithprime(i+2)); > fi; > od; #
MATHEMATICA
Flatten[Select[Partition[Prime[Range[16000]], 3, 1], Differences[#] == {24, 24}&]] (* Harvey P. Dale, Feb 03 2012 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Zerinvary Lajos, May 04 2007
STATUS
approved