08-31-2017, 03:07 PM
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.
The size & check sum below are for the version as printed.
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.
The size & check sum below are for the version as printed.
Code:
::
CK1&Dispatch
# FF
::
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
Z4_
Z5_
INDEX@
FPTR2 ^RP#
FPTR2 ^RMULText
FPTR2 ^ZQUOText
Z5_
FPTR2 ^ZMod
Z1_
FPTR2 ^RADDext
FPTR2 ^Z>S
SWAP&$
LOOP
SWAPDROP
FPTR2 ^S>Z
;
;
CKSUM # ADFFh
SIZE 149.5