user
Task

Show primes which sum of its decimal digits is   **25**

Find primes      **n**      such that      **n  <  5000**

Stretch goal

Show the count of all such primes that do not contain any zeroes in the range:

:   :   :   (997   ≤   **n**   ≤   1,111,111,111,111,111,111,111,111).
assistant
```
unit sub MAIN ($limit = 5000);
say "{+$_} primes < $limit with digital sum 25:\n{$_».fmt("%" ~ $limit.chars ~ "d").batch(10).join("\n")}",
    with ^$limit .grep: { .is-prime and .comb.sum == 25 }

```

Output:

```
17 primes < 5000 with digital sum 25:
 997 1699 1789 1879 1987 2689 2797 2887 3499 3697
3769 3877 3967 4597 4759 4957 4993
```