Square-free integers: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 1,704:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>squareFree[n_Integer] := DeleteCases[Last /@ FactorInteger[n], 1] === {};
findSquareFree[n__] := Select[Range[n], squareFree];
Line 1,732:
1000000135, 1000000137, 1000000138, 1000000139, 1000000141, 1000000142}
607926</pre>
=={{header|Nanoquery}}==
|