return scalar  grep { $i % $_ == 0 } (2 .. sqrt($i)); 
# 0 wenn es keinen restfreien Teiler gibt