Post Reply 
Numbers of Armstong WP34s
11-30-2015, 07:02 PM
Post: #1
Numbers of Armstong WP34s
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.

GĂ©rard.
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Numbers of Armstong WP34s - ggauny@live.fr - 11-30-2015 07:02 PM



User(s) browsing this thread: 1 Guest(s)