Square-free integers: Difference between revisions
Content added Content deleted
(→{{header|Racket}}: up from a billion to a trillion) |
|||
Line 1,132:
From 1 to 100000 = 60794
From 1 to 1000000 = 607926</pre>
=={{header|Mathematica}}==
<lang Mathematica>squareFree[n_Integer] := DeleteCases[Last /@ FactorInteger[n], 1] === {};
findSquareFree[n__] := Select[Range[n], squareFree];
findSquareFree[45]
findSquareFree[10^9, 10^9 + 145]
Length[findSquareFree[10^6]]</lang>
{{out}}
<pre>{1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43}
{1000000001, 1000000002, 1000000003, 1000000005, 1000000006,
1000000007, 1000000009, 1000000010, 1000000011, 1000000013,
1000000014, 1000000015, 1000000018, 1000000019, 1000000021,
1000000022, 1000000027, 1000000029, 1000000030, 1000000031,
1000000033, 1000000034, 1000000037, 1000000038, 1000000039,
1000000041, 1000000042, 1000000043, 1000000045, 1000000046,
1000000047, 1000000049, 1000000051, 1000000054, 1000000055,
1000000057, 1000000058, 1000000059, 1000000061, 1000000063,
1000000065, 1000000066, 1000000067, 1000000069, 1000000070,
1000000073, 1000000074, 1000000077, 1000000078, 1000000079,
1000000081, 1000000082, 1000000083, 1000000086, 1000000087,
1000000090, 1000000091, 1000000093, 1000000094, 1000000095,
1000000097, 1000000099, 1000000101, 1000000102, 1000000103,
1000000105, 1000000106, 1000000109, 1000000110, 1000000111,
1000000113, 1000000114, 1000000115, 1000000117, 1000000118,
1000000119, 1000000121, 1000000122, 1000000123, 1000000126,
1000000127, 1000000129, 1000000130, 1000000131, 1000000133,
1000000135, 1000000137, 1000000138, 1000000139, 1000000141, 1000000142}
607926
</pre>
=={{header|Perl}}==
| |||