(49g+) OEIS A014261: Integers with Exclusively Odd Digits

[Gerald H]

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.