Post Reply 
(49G) OEIS A006046 (Partial Sums of Gould's Sequence)
09-02-2015, 03:46 PM (This post was last modified: 06-15-2017 01:44 PM by Gene.)
Post: #1
(49G) OEIS A006046 (Partial Sums of Gould's Sequence)
For positive integer N entry the programme below reproduces the Nth element of

http://oeis.org/A006046

ie the partial sums of Gould's sequence (http://oeis.org/A001316).

Code:

::
  CK1&Dispatch
  # FF
  ::
    '
    ::
      DUP
      Z2_
      Z<
      ?SEMI
      Z2_
      FPTR2 ^ZDIVext
      Z0_
      EQUALcase
      ::
        1GETLAM
        EVAL
        Z3_
        FPTR2 ^RMULText
      ;
      DUP
      1GETLAM
      EVAL
      DUP
      FPTR2 ^RADDext
      SWAP
      Z1_
      FPTR2 ^RADDext
      1GETLAM
      EVAL
      FPTR2 ^RADDext
    ;
    DUP1LAMBIND
    EVAL
    ABND
  ;
;
Find all posts by this user
Quote this message in a reply
Post Reply 




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