Abundant odd numbers: Difference between revisions
→{{header|Frink}}
Line 2,775:
=={{header|Frink}}==
<lang frink>isAbundantOdd[n] := sum[allFactors[n, true, false]] > n
Line 2,796 ⟶ 2,794:
println["\nThe thousandth abundant odd number:"]
n =
count = 0
do
{
n = n + 2▼
if isAbundantOdd[n]
count = count + 1
▲ n = n + 2
} until count == 1000
Line 2,816 ⟶ 2,815:
until isAbundantOdd[n]
println["$n: proper divisor sum " + sum[allFactors[n, 1, false]]]
</lang>
{{out}}
<pre>
Line 2,847 ⟶ 2,848:
The thousandth abundant odd number:
The first abundant odd number over 1 billion:
|