Numbers of Armstong WP34s

[ggauny@live.fr]

Hi all,
I have made a little routine to know how are numbers of Armstrong, it is a curiosity arithmetic like this :

A one is when the sum of the digits of the number cube is egal to the number, as example :

1 is because, of course, 1^3 is 1,
153 is too because 1^3+5^3+3^ is 153.

In my knowledge only is 1, 153,370,371,407. I think it is all but not sure am-I.
For cumfortable use I merged 2 routines in one. Did you notice that I use goods ideas from forum like inc x and Dieter's 'DIVMOD' as if theses was built'in functions ?

Code:


fLBL'NAR'  ; stand for "Number of ARmstrong
2000   ; a limit
STO 03
0
STO 04
INC 04  ; it is 1,2,3,.....
RCL 04 
XEQ'TT1'
DSZ 03   ; to not over the 2000 limit
BACK 04
END

fLBL'TT1'
FILL
EXPT
INC X
STO 01
DROP
#010
RMDR
X^3
STO+ 02
DROP
#010
IDIV
ENTER
DSZ 01
BACK 009
RCL 02
X=? T
PSE 30  ; to have time to read and note on a sheet of paper
0
STO 01
0
STO 02
END.

Well, I am aware that serve for nothing, but it is funy, no ?

Like say Dieter : as usual comments are welcome.