Abundant odd numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,514: / Line 4,514: @@
 {{out}}
 <pre>[5,25,35,175,385,1925,5005,25025,85085,425425,1616615,8083075,37182145,56581525]</pre>
+=={{header|MiniScript}}==
+<syntaxhighlight lang="miniscript">
+divisorSum = function(n)
+	ans = 0
+	i = 1
+	while i * i <= n
+		if n % i == 0 then
+			ans += i
+			j = floor(n / i)
+			if j != i then ans += j
+		end if
+		i += 1
+	end while
+	return ans
+end function
+cnt = 0
+n = 1
+while cnt < 25
+	sum = divisorSum(n) - n
+	if sum > n then
+		print n + ": " + sum
+		cnt += 1
+	end if
+	n += 2
+end while
+while true
+	sum = divisorSum(n) - n
+	if sum > n then
+		cnt += 1
+		if cnt == 1000 then break
+	end if
+	n += 2
+end while
+print "The 1000th abundant number is " + n + " with a proper divisor sum of " + sum
+n = 1000000001
+while true
+	sum = divisorSum(n) - n
+	if sum > n  and n > 1000000000 then break
+	n += 2
+end while
+print "The first abundant number > 1b is " + n + " with a proper divisor sum of " + sum
+</syntaxhighlight>
+{{out}}
+<pre>945: 975
+: 1649
+: 2241
+: 2973
+: 4023
+: 4641
+: 5195
+: 5877
+: 6129
+: 6495
+: 6669
+: 7065
+: 7063
+: 7731
+: 7455
+: 8349
+: 8331
+: 8433
+: 8967
+: 8931
+: 9585
+: 9597
+: 10203
+: 12645
+: 11946
+The 1000th abundant number is 492975 with a proper divisor sum of 519361
+The first abundant number > 1b is 1000000575 with a proper divisor sum of 1083561009
+</pre>
 =={{header|Nim}}==