Table[factor[primorial(n)+1],{n,1,10}]