09-19-2017, 06:29 AM
For natural number input N the programme returns the Nth element of the series
https://oeis.org/A228297
https://oeis.org/A228297
Code:
::
CK1&Dispatch
# FF
::
DUPDUP
Z5_
FPTR2 ^ZQUOText
FPTR2 ^RSUBext
BEGIN
DUPDUP
Z0_
SWAP
BEGIN
Z5_
FPTR2 ^ZQUOText
DUPROT
FPTR2 ^RADDext
SWAPDUP
Z0_
EQUAL
UNTIL
DROP
FPTR2 ^RADDext
3PICK
Z<
WHILE
::
Z1_
FPTR2 ^RADDext
;
REPEAT
SWAPDROP
;
;