(49G) OEIS A004718: PER NØRGÅRD'S ∞ SEQUENCE

[Gerald H]

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
  ;
;