for n in range(2, 100): for x in range(2, n): if n % x == 0: #print(n, 'equals', x, '*', n//x) break else: print(n, 'is a primer number') #### for $i (2..100){ $p=0; for $j (1..$i){ if($i % $j==0){ $prime_[$p] = "$j"; $p++; } if ($prime_[1] == $i){ print "$i is a primer number\n"; } } }