(49G) OEIS A084545: Counting Base 5 without Zero

+- HP Forums (http://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (49G) OEIS A084545: Counting Base 5 without Zero (/thread-8947.html)

(49G) OEIS A084545: Counting Base 5 without Zero - Gerald H - 09-01-2017 10:57 AM

For integer input N the programme returns the Nth element of the sequence

https://oeis.org/A084545

NB The description below uses the expression

eg Z4_

for ZINT 4.

The two are however NOT the same, Z4_ having 2.5 Bytes & ZINT 4 having 6 Bytes.

Code:
::
  CK1&Dispatch
  # FF
  ::
    Z1_
    SWAP
    Z4_
    FPTR2 ^RMULText
    Z1_
    FPTR2 ^RADDext
    DUP
    FPTR2 ^Z>R
    %LN
    %5
    %LN
    %/
    %FLOOR
    %IP
    COERCESWAP
    Z5_
    3PICK
    FPTR2 ^RP#
    FPTR2 ^RSUBext
    NULL$
    ROT
    ZERO_DO
    OVER
    4ROLL
    DUP
    Z5_
    FPTR2 ^RMULText
    5UNROLL
    Z4_
    FPTR2 ^RMULText
    FPTR2 ^ZQUOText
    Z5_
    FPTR2 ^ZMod
    Z1_
    FPTR2 ^RADDext
    FPTR2 ^Z>S
    SWAP&$
    LOOP
    ROTROT2DROP
    FPTR2 ^S>Z
  ;
;


RE: (49G) OEIS A084545: Counting Base 5 without Zero - Joe Horn - 09-01-2017 06:09 PM

If you use the standard HP extable library and 50g's built-in assembler, you can use Gerald's source code if you add the following lines to the very beginning:

Code:
EQU Z1_ 273B6
EQU Z4_ 273DA
EQU Z5_ 273E6