(50G) OEIS A111072 (Error Corrected)

03102015, 10:38 AM
(This post was last modified: 06152017 01:40 PM by Gene.)
Post: #1




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

« Next Oldest  Next Newest »

User(s) browsing this thread: 1 Guest(s)