I would rather work with exact rational numbers:

expression = (179424673 (n + 9999980*2 (179424407 + n)))/((179424407 +
        n)  (-0.32 + n + 179424407 (9999980*2 + n))) // Rationalize
results = Table[expression, {n, 1, 100}];
Count[results, r_ /; r >= 1]
Plot[expression, {n, 0, 100}, GridLines -> {{29}, {1}}]

list - 1 shows only 29 positive numbers.

I think what you responding to is that floating-point numbers are shown rounded to six digits in the front end. You're seeing many "1." that are really numbers that are greater or less than 1 by less than $10^{-6}$.

You can see all digits by executing Style[list, PrintPrecision -> 17].