(50g) OEIS A014263: Integers with Exclusively Even Digits

[Gerald H]

For integer input N the programme returns the Nth integer composed solely of even digits.

For more info see

http://oeis.org/A014263

Code:


::
  CK1&Dispatch
  # FF
  ::
    NULL$SWAP
    Z5_
    SWAP
    BEGIN
    OVER
    FPTR2 ^ZDIVext
    FPTR2 ^Z>S
    4ROLL
    &$
    3UNROLL
    FPTR2 ^DupQIsZero?
    UNTIL
    2DROP
    FPTR2 ^S>Z
    DUP
    FPTR2 ^RADDext
  ;
;