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

Author

Paolo P. Lava, Sep 20 2005

Keywords

• easy
• nonn
• base

Examples

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

Crossrefs

Cf. A000290, A003132.

Programs

Mathematica

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

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

Formula

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