HP Forums

For integer index input the prog below reproduces the indexed element of this series:

http://oeis.org/A111072

::
CK1&Dispatch
# FF
::
DUP
Z1_
Z<
casedrop
Z0_
ZINT 20
FPTR2 ^ZDIVext
FPTR2 ^DupQIsZero?
?SKIP
::
{
Z1_
Z3_
Z6_
Z0_
Z5_
Z1_
Z8_
Z6_
Z5_
Z5_
Z6_
Z8_
Z1_
Z5_
Z0_
Z6_
Z3_
Z1_
Z0_
Z0_
}
BINT1
ROT
FPTR2 ^Z2BIN
SUBCOMP
INNERCOMP
Z0_
SWAP
ZERO_DO
FPTR2 ^RADDext
LOOP
;
SWAP
ZINT 70
FPTR2 ^RMULText
FPTR2 ^RADDext
;
;


Edit: Sorry, forgot that index could be a multiple of 20 - now corrected.