GetCumulativeSpacing[x_] :=
  GetCumulativeSpacing[x] =
   Block[{nums, epp = Primorial[x] - EulerPhi[Primorial[x]], idx = 0,
     num = Prime[x], lastnum = Prime[x],
     pp = Times @@ Prime[Range[x]]},
    nums = ConstantArray[0, epp];
    If [idx >= epp, Return[nums];];
    While [True,
     If[! CoprimeQ[++num, pp],
       nums[[++idx]] = (num - lastnum);
       lastnum = num;
       If [idx >= epp, Return[nums];];
       ];
     ];
    ];1Ðð
Pš	 ؘ	0¡0”p†d	@f`gà—†@f@f³£@¡0”ÀºÓ
@f`4
	gà—†@f@f 1¢€
Î
ðŠÚ	`õ3
01Ê”