- 357 名前：１３２人目の素数さん mailto:sage [2024/04/20(土) 14:32:45.55 ID:K224KWOY.net]
- >>334
エラトステネスのふるいをそのまま実装すれば次
n=2500;a=Table[i,{i,1,n}];k=1;a[[k]]=0;
While[k*k<=n,k++;While[a[[k]]==0,k++];For[i=2*k,i<=n,i+=k,a[[i]]=0];];
DeleteCases[a,0]
↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました |
| |
read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef