(49G) OEIS A046034 : Numbers Composed Exclusively of Digits 2, 3, 5, 7

[Gerald H]

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