(50g) OEIS A014263: Integers with Even Digits

+- HP Forums (http://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (50g) OEIS A014263: Integers with Even Digits (/thread-8922.html)

(50g) OEIS A014263: Integers with Even Digits - Gerald H - 08-27-2017 10:03 AM

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