or download this
# playground
my ($start, $end) = (10, 100); # try: (35, 7400)
...
step 18: 10 11 13 15 17 19 22 24 28 32 36 41 46 53 60 68 77 88 100
step 19: 10 11 13 14 16 18 21 23 26 30 34 38 43 48 55 62 70 78 89 100
step 20: 10 11 13 14 16 18 20 22 25 28 32 35 40 45 50 56 63 71 79 89 1
+00