A185679 - OEIS

%I #27 Mar 15 2023 16:27:20

%S 1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,

%T 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,

%U 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5

%N Number of digits in decimal expansion of n^2.

%H G. C. Greubel, <a href="/A185679/b185679.txt">Table of n, a(n) for n = 0..5000</a>

%F a(n) = 1 + floor(log(10, n^2)) for n>0.

%e a(33)=4 since 33^2=1089 has 4 digits.

%t Table[Length[IntegerDigits[n^2]], {n, 0, 100}]

%t Join[{1},IntegerLength[Range[100]^2]] (* _Harvey P. Dale_, Sep 17 2019 *)

%o (PARI) concat([1], for(n=1,50, print1(1 + floor(log(n^2)/log(10)), ", "))) \\ _G. C. Greubel_, Jul 10 2017

%o (Python)

%o def A185679(n): return len(str(n**2)) # _Chai Wah Wu_, Mar 15 2023

%Y Cf. A055642.

%K nonn,base

%O 0,5

%A _Carmine Suriano_, Feb 23 2011