Post Reply 
(50G) OEIS A111072 (Error Corrected)
03-10-2015, 10:38 AM (This post was last modified: 06-15-2017 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.
Find all posts by this user
Quote this message in a reply
Post Reply 




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