0,3

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

A276191 := proc(n)

local d ;

add(d^2, d= convert(n, base, 5) );

end proc:

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

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

nonn,base,easy

R. J. Mathar, Aug 24 2016

approved