Post Reply 
(49G) OEIS A046034 : Numbers Composed Exclusively of Digits 2, 3, 5, 7
09-03-2017, 10:27 AM
Post: #4
RE: (49G) OEIS A046034 : Numbers Composed Exclusively of Digits 2, 3, 5, 7
But this programme is much faster & shorter:

Size: 146.

CkSum: # 71CDh

Code:
::
  CK1&Dispatch
  # FF
  ::
    DUP
    ZINT 1
    Z<
    caseSIZEERR
    NULL$SWAP
    BEGIN
    ZINT 4
    FPTR2 ^ZDIVext
    ::
      ZINT 1
      EQUALcasedrop
      "2"
      ZINT 2
      EQUALcasedrop
      "3"
      ZINT 3
      EQUALcase
      "5"
      "7"
      SWAP
      ZINT 1
      FPTR2 ^RSUBext
      SWAP
    ;
    ROT
    &$SWAP
    DUP
    ZINT 0
    EQUAL
    UNTIL
    DROP
    FPTR2 ^S>Z
  ;
;
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: (49G) OEIS A046034 : Numbers Composed Exclusively of Digits 2, 3, 5, 7 - Gerald H - 09-03-2017 10:27 AM



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