HP Forums
(49G) OEIS A004718: PER NØRGÅRD'S ∞ SEQUENCE - Printable Version

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (49G) OEIS A004718: PER NØRGÅRD'S ∞ SEQUENCE (/thread-9631.html)



(49G) OEIS A004718: PER NØRGÅRD'S ∞ SEQUENCE - Gerald H - 12-04-2017 03:45 PM

PER NØRGÅRD'S

https://en.wikipedia.org/wiki/Per_N%C3%B8rg%C3%A5rd

∞ SEQUENCE

https://oeis.org/A004718

Size: 98.5

CkSum: # 42028d

Code:
::
  CK1&Dispatch
  # FF
  ::
    '
    ::
      DUP
      ZINT 0
      EQUAL
      ?SEMI
      ZINT 2
      FPTR2 ^ZDIVext
      ZINT 0
      EQUALcase
      ::
        1GETLAM
        EVAL
        FPTR 6 4FB
      ;
      1GETLAM
      EVAL
      ZINT 1
      FPTR2 ^RADDext
    ;
    DUP1LAMBIND
    EVAL
    ABND
  ;
;