A276191 Sum of the squares of the digits of the base-5 representation of n.

0, 1, 4, 9, 16, 1, 2, 5, 10, 17, 4, 5, 8, 13, 20, 9, 10, 13, 18, 25, 16, 17, 20, 25, 32, 1, 2, 5, 10, 17, 2, 3, 6, 11, 18, 5, 6, 9, 14, 21, 10, 11, 14, 19, 26, 17, 18, 21, 26, 33, 4, 5, 8, 13, 20, 5, 6, 9, 14, 21, 8, 9, 12, 17, 24, 13, 14, 17, 22, 29, 20, 21, 24, 29, 36, 9, 10, 13, 18, 25, 10

Offset: 0

Author

R. J. Mathar, Aug 24 2016

Keywords

• nonn
• base
• easy

Crossrefs

Cf. A000120 (base 2), A006287 (base 3), A276190 (base 4).

Programs

Maple

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

Mathematica

Table[Total[IntegerDigits[n,5]^2],{n,0,80}] (* Harvey P. Dale, Aug 15 2017 *)