08-31-2017, 10:53 AM
For integer input N the programme returns the Nth element of the sequence
https://oeis.org/A014261
For the development of this programme please see
http://www.hpmuseum.org/forum/thread-8928.html
NB The description below uses the expression
eg Z1_
for ZINT 1.
The two are however NOT the same, Z1_ having 2.5 Bytes & ZINT 1 having 6 Bytes.
The size & check sum below are for the version as printed.
https://oeis.org/A014261
For the development of this programme please see
http://www.hpmuseum.org/forum/thread-8928.html
NB The description below uses the expression
eg Z1_
for ZINT 1.
The two are however NOT the same, Z1_ having 2.5 Bytes & ZINT 1 having 6 Bytes.
The size & check sum below are for the version as printed.
Code:
::
CK1&Dispatch
# FF
::
NULL$SWAP
BEGIN
Z1_
FPTR2 ^RSUBext
Z5_
FPTR2 ^ZDIVext
DUP
FPTR2 ^RADDext
Z1_
FPTR2 ^RADDext
FPTR2 ^Z>S
ROT
&$SWAP
DUP
Z0_
EQUAL
UNTIL
DROP
FPTR2 ^S>Z
;
;
CKSUM # 85DFh
SIZE 86.