(33s) OEIS A10888: Decimal Digits of (13,717,421/111,111,111)

[Gerald H]

Takes a natural number from the stack & returns A10888(N).

https://oeis.org/A010888

Decimal digits of (13,717,421/111,111,111), AKA digital root of N, result of repeated applications of digital sum

https://oeis.org/A007953

https://www.hpmuseum.org/forum/thread-18670.html

until a fixed point is reached.

Preserves stack.

Code:

1.    LBL T
2.    x=0?
3.    RTN
4.    STO N
5.    CLx
6.    RMDR(N-1:9)+1
7.    RTN

T: LN = 34