(34S) Collatz Conjecture

[Didier Lachieze]

The Collatz Conjecture is also called the Syracuse problem.
Here is my version for the WP 34S in 19 steps:

Code:

001 LBL A
002 FILL
003 STO- Y
004 x#1?
005 SKIP 002
006 DROP
007 RTN
008 INC Y
009 EVEN?
010 SKIP 006 
011 3
012 *
013 INC X
014 x>?Z
015 STO Z
016 BACK 008
017 2
018 /
019 BACK 015