login
Sum of the squares of the digits of the base-5 representation of n.
3

%I #8 Aug 15 2017 19:41:29

%S 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,

%T 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,

%U 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

%N Sum of the squares of the digits of the base-5 representation of n.

%p A276191 := proc(n)

%p local d ;

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

%p end proc:

%t Table[Total[IntegerDigits[n,5]^2],{n,0,80}] (* _Harvey P. Dale_, Aug 15 2017 *)

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

%K nonn,base,easy

%O 0,3

%A _R. J. Mathar_, Aug 24 2016