Table[Factor[(primorial(n)/2)-2],{n,1,20}] and Table[Factor[(primorial(n)/2)+2],{n,1,20}]