got7ing 百度云:谁有10000以内的素数表

来源:百度文库 编辑:高校问答 时间:2024/05/13 23:21:41

我当回好人
public class Primes
{
public static void main(String[] args)
{
for (long i = 1; i <= 10000; i++)
{
long a = 1;
for (long n = 2; n <= Math.sqrt(i); n++)
{
a = a * ( i % n);
if ( i % n >= 2)
{
a = a / 2;
}
}
if (a != 0)
{
System.out.println(i);
}
}
}
}

哇,厉害,用什么算法求得?

Delphi写的超快速求质数表

program prime;

{$APPTYPE CONSOLE}

procedure hkeprime(n:integer);
type mytype=array[1..200000] of integer;
var t:mytype;
i:integer;
a:integer;
k:integer;
isp:boolean;
begin
t[1]:=2;
K:=1;
writeln(2);
for i:=2 to n do
begin
isp:=true;
a:=1;
while a<=k do
begin
if i mod t[a] =0 then
begin
isp:=false;
break;
end;
if t[a]*t[a]>i then break;
a:=a+1;
end;
if isp then
begin
k:=K+1;
t[k]:=i;
writeln(i);
end;
end;
end;

begin
hkeprime(10000);
readln;//暂停Dos程序
end.

太长了
Dos程序可能显示不完
你可以存到文件里

编程就行了.
用上面那个人给你的程序.