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 *)