(33s) OEIS A2516: EARLIEST SEQUENCE WITH A(A(N)) = 2N

[Gerald H]

Inspired by Ret's etc programme here's my own attempt at derecursivising.

NB Preserves the stack.

Code:

1.    LBL S
2.    x=0?
3.    RTN
4.    STO N
5.    RCL/N
6.    STO C
1.    LBL T
2.    CLx
3.    RMDR(N:2)
4.    x≠0?
5.    GTO U
6.    CLx
7.    2
8.    STO* C
9.    CLx
10.    N/2
11.    STO N
12.    GTO T
1.    LBL U
2.    CLx
3.    C*(N+2+(N-6)*RMDR(IDIV(N:2):2))
4.    RTN

S: LN = 18
T: LN = 60
U: LN = 43