Chowla numbers: Difference between revisions
→{{header|Wren}}: Tidier
(Added Algol 68) |
(→{{header|Wren}}: Tidier) |
||
Line 4,700:
{{libheader|Wren-fmt}}
{{libheader|Wren-math}}
<lang ecmascript>import "./fmt" for Fmt
import "./math" for Int, Nums
var chowla = Fn.new { |n| (n > 1) ? Nums.sum(Int.properDivisors(n)) - 1 : 0 }
for (i in 1..37)
System.print()
var count = 1
Line 4,715:
if (!c[i]) count = count + 1
if (i == power - 1) {
power = power * 10
}
Line 4,728:
if (p > limit) break
if (chowla.call(p) == p-1) {
count = count + 1
}
|