(33s) OEIS A3602: Kimberling's Paraphrases, a Very Fractal Sequence

[Gerald H]

Takes a real integer from the stack & returns A3602(N) to stack.
Nth member of Kimberling’s paraphrases.
Preserves stack.

https://oeis.org/A003602

Improvements to programme welcome.

Code:

1.    LBL I
2.    CF 1
3.    STO N
4.    CLx
5.    N/2
6.    STO N
7.    FP
8.    x=0?
9.    SF 1
10.    RCL+ N
11.    FS? 1
12.    GTO I
13.    RTN

I: LN = 42