21/02/26 20:44:51.81 +NtPTv3y.net
>>254
10000以下だと
> n=10000
> length((1:n)[-outer(2:n,2:n)][-1])
[1] 1229
やっていることは合成数と１を除いただけ。
21/02/26 20:44:51.81 +NtPTv3y.net
>>254
10000以下だと
> n=10000
> length((1:n)[-outer(2:n,2:n)][-1])
[1] 1229
やっていることは合成数と１を除いただけ。