24/04/21 11:44:09.84 KNrj0Rg+.net
>>360
Do[a=DeleteCases[a,i*j],{i,2,Floor[Sqrt[n]]},{j,i,Floor[n/i]}] ; a
でなくて
Do[a=DeleteCases[a,i*j],{i,Pi,Sqrt[n]},{j,i,n/i}] ; a
でも動作するのは驚き。
整数必須と思っていた。
何事にも先達はあらまほしきことなり
24/04/21 11:44:09.84 KNrj0Rg+.net
>>360
Do[a=DeleteCases[a,i*j],{i,2,Floor[Sqrt[n]]},{j,i,Floor[n/i]}] ; a
でなくて
Do[a=DeleteCases[a,i*j],{i,Pi,Sqrt[n]},{j,i,n/i}] ; a
でも動作するのは驚き。
整数必須と思っていた。
何事にも先達はあらまほしきことなり