Anti-primes: Difference between revisions

m
→‎{{header|Perl 6}}: Typo, minor opt
m (→‎{{header|REXX}}: changed a comment.)
m (→‎{{header|Perl 6}}: Typo, minor opt)
Line 259:
my atomicint $last = 0;
 
my @anti-primes = lazy 1, |(|(2..59), 60, *+3060 … *).hyper.grep: -> $c {
my \mx = +propdiv($c);
next if mx <= $last;
Line 275:
1 2 4 6 12 24 36 48 60 120 180 240 360 720 840 1260 1680 2520 5040 7560
 
Count of anti-primes <= 500000: 3635</pre>
 
=={{header|Python}}==
10,333

edits