login
A110892
Sum of the squares of digits of n^2.
1
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
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
Sequence in context: A053167 A187363 A361266 * A202880 A339596 A088040
KEYWORD
easy,nonn,base
AUTHOR
Paolo P. Lava, Sep 20 2005
STATUS
approved