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

[Gerald H]

A slightly shorter version:

Size: 132

CkSum: # 7092h

Code:

::
  CK1&Dispatch
  # FF
  ::
    DUP
    ZINT 1
    Z<
    caseSIZEERR
    NULL$SWAP
    BEGIN
    ZINT 4
    FPTR2 ^ZDIVext
    ::
      ZINT 1
      EQUALcasedrop
      CHR_2
      ZINT 2
      EQUALcasedrop
      CHR_3
      ZINT 3
      EQUALcase
      CHR_5
      CHR_7
      SWAP
      ZINT 1
      FPTR2 ^RSUBext
      SWAP
    ;
    ROTSWAP
    >H$
    SWAPDUP
    ZINT 0
    EQUAL
    UNTIL
    DROP
    FPTR2 ^S>Z
  ;
;