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,3

Links

Table of n, a(n) for n=0..80.

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 *)

Crossrefs

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

Sequence in context: A245238 A011238 A002993 * A011290 A196502 A372859

Adjacent sequences: A276187 A276188 A276189 * A276191 A276192 A276193

Keyword

nonn,base,easy

Author

R. J. Mathar, Aug 24 2016

Status

approved