(50G) OEIS A111072 (Error Corrected) - Printable Version +- 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. |