(33s) OEIS A7612: A(N-1)+Digital Root of A(N-1)

[Gerald H]

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

https://oeis.org/A007612

Digital root:

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

A(N-1)+Digital root of A(N-1), starting from 1.
Preserves stack.

Code:

1.    LBL C
2.    STO N
3.    CLx
4.    RMDR(N:6)
5.    STO P
6.    CLx
7.    2^(P-1)
8.    STO P
9.    CLx
10.    27*IDIV(N:6)+P-FP(P)*9
11.    RTN

C: LN = 71