code:
Do[Print[Module[{}, num = 10000;(*素數(shù)列表長度*)
? primeList = Table[Prime[i], {i, 1, num}];
? randomInteger = RandomInteger[{1, num - 5}];
? subList = primeList[[randomInteger ;; randomInteger + 4]];
? Total[If[# == True,1,0] & /@PrimeQ /@Total /@ Drop[DeleteDuplicates[If[Length@# == 3, #, 0] & /@DeleteDuplicates /@Tuples[{subList, subList, subList}]],1]]]],100]
