OFFSET
1,2
FORMULA
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
KEYWORD
easy,nonn,base
AUTHOR
Paolo P. Lava, Sep 20 2005
STATUS
approved