A110892 Sum of the squares of digits of n^2.

1, 16, 81, 37, 29, 45, 97, 52, 65, 1, 6, 33, 118, 118, 33, 65, 149, 29, 46, 16, 33, 96, 110, 110, 65, 121, 134, 129, 81, 81, 118, 21, 146, 63, 34, 122, 127, 49, 31, 37, 102, 102, 162, 127, 33, 42, 89, 29, 21, 29, 41, 69, 149, 122, 38, 55, 110, 70, 90, 45, 63, 105, 207, 133

Offset

1,2

Links

Table of n, a(n) for n=1..64.

Formula

a(n) = A003132(A000290(n)). - Michel Marcus, Jun 04 2013

Example

If n=187: 187^2=34969; 3^2+4^2+9^2+6^2+9^2=223.

Mathematica

Table[Total[IntegerDigits[n^2]^2], {n, 64}] (* James C. McMahon, Apr 23 2024 *)

Prog

(PARI) a(n)=norml2(eval(Vec(Str(n^2)))) \\ Michel Marcus, Jun 04 2013
(PARI) a(n) = norml2(digits(n^2)); \\ Ruud H.G. van Tol, Jul 03 2024

Crossrefs

Cf. A000290, A003132.

Sequence in context: A053167 A187363 A361266 * A202880 A339596 A088040

Adjacent sequences: A110889 A110890 A110891 * A110893 A110894 A110895

Keyword

easy,nonn,base

Author

Paolo P. Lava, Sep 20 2005

Status

approved