Digital Root

DOWNLOAD Mathematica Notebook

Consider the process of taking a number, taking its digit sum, then adding the digits of numbers derived from it, etc., until the remaining number has only one digit. The number of additions required to obtain a single digit from a number n in a given base is called the additive persistence of n, and the digit obtained is called the digital root of n.

DigitalRoot

For example, the sequence obtained from the starting number 9876 in base 10 is (9876, 30, 3), so 9876 has an additive persistence of 2 and a digital root of 3. The base-10 digital roots of the first few integers are 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, ... (OEIS A010888). The digital root dr(n) of an integer n can be computed without actually performing the iteration using the simple congruence formula

dr(n)={n (mod 9) n ≢ 0 (mod 9) ; 9 n=0 (mod 9)
(1)
=1+[n-1 (mod 9)].
(2)

Wolfram Web Resources

Mathematica »

The #1 tool for creating Demonstrations and anything technical.

Wolfram|Alpha »

Explore anything with the first computational knowledge engine.

Wolfram Demonstrations Project »

Explore thousands of free applications across science, mathematics, engineering, technology, business, art, finance, social sciences, and more.

Computerbasedmath.org »

Join the initiative for modernizing math education.

Online Integral Calculator »

Solve integrals with Wolfram|Alpha.

Step-by-step Solutions »

Walk through homework problems step-by-step from beginning to end. Hints help you try the next step on your own.

Wolfram Problem Generator »

Unlimited random practice problems and answers with built-in Step-by-step solutions. Practice online or make a printable study sheet.

Wolfram Education Portal »

Collection of teaching and learning tools built by Wolfram education experts: dynamic textbook, lesson plans, widgets, interactive Demonstrations, and more.

Wolfram Language »

Knowledge-based programming for everyone.