user
The Harshad or Niven numbers are positive integers ≥ 1 that are divisible by the sum of their digits.

For example,   **42**   is a Harshad number as   **42**   is divisible by   (**4** + **2**)   without remainder.

Assume that the series is defined as the numbers in increasing order.

Task

The task is to create a function/method/procedure to generate successive members of the Harshad sequence.

Use it to:

:   :   * list the first **20** members of the sequence,   and
        * list the first Harshad number greater than **1000**.

Show your output here.

Related task
:   * Increasing gaps between consecutive Niven numbers

See also

* OEIS: A005349
assistant
(formerly Perl 6)

**Works with**: Rakudo version 2016.08

```
constant @harshad = grep { $_ %% .comb.sum }, 1 .. *;
 
say @harshad[^20];
say @harshad.first: * > 1000;

```

Output:

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