Harshad or Niven series: Difference between revisions

=={{header|Wren}}==

<lang ecmascript>var niven = Fiber.new {

var n = 1

while (true) {

var i = n

var sum = 0

while (i > 0) {

sum = sum + i%10

i = (i/10).floor

}

if (n%sum == 0) Fiber.yield(n)

n = n + 1

}

}

System.print("The first 20 Niven numbers are:")

for (i in 1..20) {

System.write("%(niven.call()) ")

}

System.write("\n\nThe first Niven number greater than 1000 is: ")

while (true) {

var niv = niven.call()

if (niv > 1000) {

System.print(niv)

break

}

}</lang>

{{out}}

<pre>

The first 20 Niven numbers are:

1 2 3 4 5 6 7 8 9 10 12 18 20 21 24 27 30 36 40 42

The first Niven number greater than 1000 is: 1002

</pre>