(49G & 33s) OEIS A10785: Repdigit Numbers (in Human Readable Form)

[Gerald H]

Thank you, Joe, for the clarity of your programme.

For the 33s the programme A produces a 2-level version of the repdigit & programme B takes the result of A & returns the position in the OEIS series.

Preserves stack.

Code:

1.    LBL A
2.    x<0?
3.    GTO B
4.    STO N
5.    9
6.    STO I
7.    INT/
8.    STO Q
9.    CLx
10.    RCL N
11.    RCL I
12.    RMDR
13.    STO R
14.    SGN
15.    STO+ Q
16.    x≠0?
17.    RCL* R
18.    x=0?
19.    RCL+ I
20.    RCL Q
21.    RTN
1.    LBL B
2.    +/-
3.    STO N
4.    SGN
5.    STO- N
6.    CLx
7.    9
8.    RCL* N
9.    +
10.    RTN

A: LN = 75
B: LN = 42