HP Forums / HP Software Libraries / General Software Library v / (33s) OEIS A7612: A(N-1)+Digital Root of A(N-1)

Post Reply 
(33s) OEIS A7612: A(N-1)+Digital Root of A(N-1)
08-17-2022, 06:33 PM
Post: #2
Didier Lachieze Offline
Senior Member
 		Posts: 1,635
Joined: Dec 2013
RE: (33s) OEIS A7612: A(N-1)+Digital Root of A(N-1)
Code:
10.    27*IDIV(N:6)+P-FP(P)*9

Nice formula!

You can combine steps 4 and 7, and save a few steps:

Code:
1.    LBL C
2.    STO N
3.    CLx
4.    2^(RMDR(N:6)-1)
5.    STO P
6.    CLx
7.    27*IDIV(N:6)+P-FP(P)*9
8.    RTN
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: (33s) OEIS A7612: A(N-1)+Digital Root of A(N-1) - Didier Lachieze - 08-17-2022 06:33 PM



User(s) browsing this thread: 1 Guest(s)

Contact Us | The Museum of HP Calculators | Return to Top | Return to Content | Lite (Archive) Mode | RSS Syndication