aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Proper-divisors/Mathematica/proper-divisors-1.math Normal file
View file

@ -0,0 +1 @@
ProperDivisors[n_Integer /; n > 0] := Most@Divisors@n;

1
Task/Proper-divisors/Mathematica/proper-divisors-2.math Normal file
View file

@ -0,0 +1 @@
Grid@Table[{n, ProperDivisors[n]}, {n, 1, 10}]

4
Task/Proper-divisors/Mathematica/proper-divisors-3.math Normal file
View file

@ -0,0 +1,4 @@
Fold[
Last[SortBy[{#1, {#2, Length@ProperDivisors[#2]}}, Last]] &,
{0, 0},
Range[20000]]

5
Task/Proper-divisors/Mathematica/proper-divisors-4.math Normal file
View file

@ -0,0 +1,5 @@
Last@SortBy[
Table[
{n, Length@ProperDivisors[n]},
{n, 1, 20000}],
Last]