Proper divisors: Difference between revisions
m
→Package solution: Formatting
ReeceGoding (talk | contribs) |
ReeceGoding (talk | contribs) m (→Package solution: Formatting) |
||
Line 4,302:
===Package solution===
{{Works with|R|3.3.2 and above}}
<lang r># Proper divisors. 12/10/16 aev▼
▲# Proper divisors. 12/10/16 aev
require(numbers);
V <- sapply(1:20000, Sigma, k = 0, proper = TRUE); ind <- which(V==max(V));
cat(" *** max number of divisors:", max(V), "\n"," *** for the following indices:",ind, "\n");</lang>
{{Output}}
<pre>Loading required package: numbers▼
▲Loading required package: numbers
*** max number of divisors: 79
*** for the following indices: 15120 18480 </pre>
===Filter solution===
| |||