+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (50G) OEIS A111072 (Error Corrected) (/thread-3330.html)
(50G) OEIS A111072 (Error Corrected) - Gerald H - 03-10-2015 10:38 AM
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.