[lmikle]

Проще наврядли, но оптимизировать можно.
Нет смысла перебирать до N. Можно до Round(SQRT(N)) + 1.
Кроме того, есть подозрение, что второй цикл можно гнать до I, а не до конца.