A276190 Sum of the squares of the digits of the base-4 representation of n.

0, 1, 4, 9, 1, 2, 5, 10, 4, 5, 8, 13, 9, 10, 13, 18, 1, 2, 5, 10, 2, 3, 6, 11, 5, 6, 9, 14, 10, 11, 14, 19, 4, 5, 8, 13, 5, 6, 9, 14, 8, 9, 12, 17, 13, 14, 17, 22, 9, 10, 13, 18, 10, 11, 14, 19, 13, 14, 17, 22, 18, 19, 22, 27, 1, 2, 5, 10, 2, 3, 6, 11, 5, 6, 9, 14, 10, 11, 14, 19, 2

Offset: 0

Author

R. J. Mathar, Aug 24 2016

Keywords

• nonn
• base
• easy

Crossrefs

Cf. A000120 (base 2), A006287 (base 3), A276191 (base 5).

Programs

Maple

A276190 := proc(n)
    local d ;
    add(d^2, d= convert(n, base, 4) );
end proc:

Mathematica

Table[Total[IntegerDigits[n,4]^2 ],{n,0,80}] (* Harvey P. Dale, Jun 26 2022 *)