Untouchable numbers: Difference between revisions
Content added Content deleted
(→{{header|Pascal}}: changed search range to n^(4/3) an unmark all odd numbers and correct 5.Now the count untouchable numbers fits up to 1E8) |
m (→{{header|F_Sharp|F#}}: fixed duplicate <lang fsharp>) |
||
Line 453: | Line 453: | ||
</pre> |
</pre> |
||
;Count less than or equal 3000000 |
;Count less than or equal 3000000 |
||
<lang fsharp> |
|||
<lang fsharp> |
<lang fsharp> |
||
printfn "%d" (uT 3000000|>Array.filter id|>Array.length) |
printfn "%d" (uT 3000000|>Array.filter id|>Array.length) |