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

[Gerald H]

Below a direct translation of Thomas' programme to 33s-ese.

Very nicely done, Thomas, congrats.

Not sure why I started using "real integer", perhaps because people started using the phrase "real people" which irritated me enormously. Nice to find members who question my use of English - the expression may have some meaning on 49G, as 77. and 77 are different entities on that calculator.
However, definitely not an innovative type of integer.

Very nice programme, Ret, congrats. My version below also actually gives correct answers until numbers too big for exact representation!

Code:

1.    LBL C
2.    STO N
3.    1
4.    2
5.    GTO N
1.    LBL M
2.    R↓
3.    STO* N
4.    *
5.    LASTx
1.    LBL N
2.    RCL N
3.    x=0?
4.    RTN
5.    4
6.    STO/ N
7.    RMDR
8.    x≠y?
9.    x=0?
10.    GTO M
11.    x<>y
12.    *
13.    LASTx
14.    +
15.    ENTER
16.    +/-
17.    4
18.    /
19.    LASTx
20.    +
21.    x<>y
22.    RCL N
23.    IP
24.    *
25.    +
26.    *
27.    RTN

L: LN = 39
M: LN = 15
N: LN = 105