Нахождение простых чисел

решето эратосфена (числа не больше данного)
( однострочник )

Прямое вычисление (количество чисел):
( однострочник )

Ну и сравнение производительности:
Решето:
Real: 0.35s User: 0.32s System: 0.01s Percent: 97%% Cmd: perl -le 102400
Прямое вычисление:
Real: 17.65s User: 17.56s System: 0.00s Percent: 99%% Cmd: perl -le 9805