08-16-2022, 12:42 PM
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.
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