+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (49g+) OEIS A014261: Integers with Exclusively Odd Digits (/thread-8941.html)
(49g+) OEIS A014261: Integers with Exclusively Odd Digits - Gerald H - 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.
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.