cp's OEIS Frontend

A164818 Integer average digit of squares.

%I A164818 #10 Feb 24 2016 04:40:50
%S A164818 1,4,9,5,3,3,3,3,6,6,3,4,4,4,4,4,4,5,5,2,2,5,5,5,5,2,5,2,5,5,5,5,5,2,
%T A164818 5,5,5,5,5,5,5,5,5,8,3,3,3,3,3,3,3,3,6,3,3,3,6,3,6,3,6,3,3,3,3,3,3,3,
%U A164818 3,3,3,3,6,6,3,6,3,3,3,3,3,3,3,6,3,3,3,3,3,6,6,6,6,3,3,3,6,3,3,3,3,6,6,3,6
%N A164818 Integer average digit of squares.
%C A164818 a(n)= average digit of squares of A164817(n).
%C A164818 The only n for which a(n) = 9 is 3.  a(44) = a(26165) = 8. - _Robert Israel_, Feb 24 2016
%H A164818 Robert Israel, <a href="/A164818/b164818.txt">Table of n, a(n) for n = 1..10000</a>
%p A164818 f:= proc(n) local L,r;
%p A164818 L:= convert(n^2,base,10);
%p A164818 r:= convert(L,`+`)/nops(L);
%p A164818 if r::integer then r else NULL fi
%p A164818 end proc:
%p A164818 map(f, [$1..1000]); # _Robert Israel_, Feb 24 2016
%Y A164818 Cf. A004159, A164817.
%K A164818 base,nonn
%O A164818 1,2
%A A164818 _Zak Seidov_, Aug 27 2009