【Mathematica】相邻素数的差值可视化

1、第三个素数与第二个素数的差值：Prime[3]-Prime[2]

3、为此，需要写一个自定义命令：pc[n_]:=Prime[n+1]-Prime[n]

5、实现可视化：ListLinePlot[%]

7、前10000个素数，相邻差值最大为72：Max[pc[#]&/@Range[2,10000]]

9、前10000个素数中，相邻差值不可能是70：DeleteCases[If[pc[#]==70巳呀屋饔,#,0]&/@Range[2,10000],0]

11、前2万个素数中，相邻差值有可能是多少？Union[pc[#]&/@Range[2,20000]]