This was my finger exercise in calculating prime numbers on the HP-41CV.
Usage:
Input: x R/S
Output: prime numbers starting from x
Code: Select all
LBL "PZ"
CLA
2
/
INT
2
*
1
+
LBL 00
STO 02
3
STO 01
LBL 01
RCL 02
SQRT
RCL 01
X>Y?
GTO 02
RCL 02
RCL 01
/
ENTER
INT
X=Y?
GTO 03
2
ST+ 01
GTO 01
LBL 02
"P="
ARCL 02
AVIEW
PSE
LBL 03
2
ST+ 02
RCL 02
GTO 00
END