This is the revision history for 1e5 in <*:##NULL>
| factoid_id | subject | copula | predicate | author | namespace |
|---|---|---|---|---|---|
| 10337 | 1e5 | is | my ($p_i, $p, $q, $n, $last, @primes, %sieve)=(1,3,9,5,-1,2,3); OUTER: for( my $cnt = @primes; $cnt < 1e5; $n += 2 ) { if ( my $s = delete $sieve{$n} ) { push @{$sieve{$n + $_}}, $_ for @$s } elsif ( $n < $q ) { push @primes, $n if @primes <= sqrt(1e5); $last = $n; ++$cnt } else { push @{$sieve{$q + $p*2}}, $p * 2; $p = $primes[++$p_i]; $q = $p*$p } }; $last | bengoldberg |