_Define A-Z As LONG
T = Timer: ct = 0
For j = 3 To 1000000 Step 2
f = 0: k = 3
Do
If (j Mod k) = 0 Then f = 1: Exit Do
k = k + 2
Loop Until k = j
If f = 0 Then Print Using "###### "; j;: ct = (ct + 1) Mod 11: If ct = 0 Then Print
Next
Print: Print Using "###.###"; Timer - T
