A164818 Integer average digit of squares.
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, 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, 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
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
f:= proc(n) local L,r; L:= convert(n^2,base,10); r:= convert(L,`+`)/nops(L); if r::integer then r else NULL fi end proc: map(f, [$1..1000]); # Robert Israel, Feb 24 2016
Comments