%I #11 Sep 17 2020 13:25:23
%S 0,0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,
%T 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
%U 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4
%N a(n) = floor(log_10(n^2)).
%C a(n) = A004216(n^2).
%t Table[Floor[Log10[n^2]],{n,120}] (* _Harvey P. Dale_, Sep 17 2020 *)
%Y Cf. A004216, A077430.
%K nonn
%O 1,10
%A _Reinhard Zumkeller_, Nov 05 2002
|