Factor[x^105-1]

ListLinePlot[Table[Length[Factor[x^n-1]],{n,200}]]