challenge

[Don Shepherd]

How many integers (from 1 to 9999) are evenly divisible by the number of letters in their name?

First one is 4 (divisible by f-o-u-r 4).

Last one happens to be 9999 (divisible by n-i-n-e-t-h-o-u-s-a-n-d-n-i-n-e-h-u-n-d-r-e-d-n-i-n-e-t-y-n-i-n-e 33).

For you HP50 fans, I expect to see a one-line RPL program!

If Valentin is lurking, he just knows the answer without writing a program.

I'll post a Tandy model 102 BASIC program in a couple of days.