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

Links

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

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

Crossrefs

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

Sequence in context: A070447 A106548 A106546 * A007893 A070446 A258682

Adjacent sequences: A276188 A276189 A276190 * A276192 A276193 A276194

Keyword

nonn,base,easy

Author

R. J. Mathar, Aug 24 2016

Status

approved