Why will ListPlot not show any points?

I have defined the function

ModOne[x_] := x - Floor[x]

to give numbers modulo 1

However when I go to plot these points

consecutivepoints4217 = Table[{ModOne[N[4217^n/10037]], ModOne[N[4217^{n + 1}/10037]]}, {n,1,10037}];

I get an empty plot

I don’t know what’s going wrong. I’ve even used the

N

function to ensure the fractions don’t cause any problems as inputs to the ModOne function.