The following warnings occurred:
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 795 - File: showthread.php PHP 7.4.33 (FreeBSD)
File Line Function
/showthread.php 795 errorHandler->error




HP Forums / HP Software Libraries / General Software Library v / (33s) OEIS A7953: Sum of Digits of N

Post Reply 
(33s) OEIS A7953: Sum of Digits of N
08-16-2022, 08:07 AM (This post was last modified: 08-25-2022 11:55 AM by Gerald H.)
Post: #1
Gerald H Offline
Senior Member
 		Posts: 1,627
Joined: May 2014
(33s) OEIS A7953: Sum of Digits of N
Takes a natural number from the stack & returns A7953(N).
Sum of digits of index.
Preserves stack.

Code:
1.    LBL V
2.    STO N
3.    CLx
4.    STO C
5.    LBL U
6.    CLx
7.    RMDR(N:10)
8.    STO+ C
9.    CLx
10.    IDIV(N:10)
11.    STO N
12.    x≠0?
13.    GTO U
14.    RCL+ C
15.    RTN

V: LN = 12
U: LN = 53
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(33s) OEIS A7953: Sum of Digits of N - Gerald H - 08-16-2022 08:07 AM



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