d[x_]：=素数[x+1]-素数[x]{k1=42，k2=42，k3=42}k=0 Do[如果[Equal[d[n]，k1]&Equal[d[n+1]，k2]&Equal[d[n+2]，k3]，k=k+1；打印[{k，n，素数[n]，素数[n+1]，素材[n+2]，素素[n+3]}]，{n，1，10000000}]
转置[Select[Partition[Prime[Range[9000000]]，4，1]，Union[Differences[#]]=={42}&]][1](*文森佐·利班迪2015年6月21日*）
