A360697 The sum of the squares of the digits of n, repeated until reaching a single-digit number.

0, 1, 4, 9, 4, 4, 4, 1, 4, 4, 1, 2, 5, 1, 4, 4, 4, 4, 4, 1, 4, 5, 8, 1, 4, 4, 4, 4, 1, 4, 9, 1, 1, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 4, 4, 4, 4, 1, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 4, 1, 4, 4, 4, 4, 4, 4, 4, 2, 1, 4, 4, 1, 4, 4, 4, 1, 2, 4, 4, 4, 1, 4, 4, 1, 4, 4, 1, 4, 4, 1

Offset

0,3

Comments

Square the digits of n, then sum the squares. Repeat the process until the sum is less than 10.

Links

Table of n, a(n) for n=0..100.

Example

For n=28, the sum of the squares of the digits gives 4+64 = 68. Repeating the process gives 36+64 = 100; repeating once more gives 1+0+0 = 1. Therefore a(28) is 1.
a(n) = 4 for 72 of the first 100 n (0 to 99 inclusive.)

Mathematica

f[n_] := Plus @@ (IntegerDigits[n]^2); a[n_] := NestWhile[f, f[n], # > 9 &]; Array[a, 100, 0] (* Amiram Eldar, Feb 17 2023 *)

Crossrefs

Cf. A003132, A007770, A099645.

Sequence in context: A341767 A281152 A238849 * A197582 A086277 A271948

Adjacent sequences: A360694 A360695 A360696 * A360698 A360699 A360700

Keyword

nonn,base

Author

Will Nicholes, Feb 16 2023

Status

approved