+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (33s) OEIS A10888: Decimal Digits of (13,717,421/111,111,111) (/thread-18672.html)
(33s) OEIS A10888: Decimal Digits of (13,717,421/111,111,111) - Gerald H - 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.
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