Square-free integers: Difference between revisions
Content added Content deleted
(→{{header|Racket}}: up from a billion to a trillion) |
|||
Line 1,132: | Line 1,132: | ||
From 1 to 100000 = 60794 |
From 1 to 100000 = 60794 |
||
From 1 to 1000000 = 607926</pre> |
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}}== |
=={{header|Perl}}== |