This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A185679 #27 Mar 15 2023 16:27:20 %S A185679 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 A185679 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 A185679 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 A185679 Number of digits in decimal expansion of n^2. %H A185679 G. C. Greubel, <a href="/A185679/b185679.txt">Table of n, a(n) for n = 0..5000</a> %F A185679 a(n) = 1 + floor(log(10, n^2)) for n>0. %e A185679 a(33)=4 since 33^2=1089 has 4 digits. %t A185679 Table[Length[IntegerDigits[n^2]], {n, 0, 100}] %t A185679 Join[{1},IntegerLength[Range[100]^2]] (* _Harvey P. Dale_, Sep 17 2019 *) %o A185679 (PARI) concat([1], for(n=1,50, print1(1 + floor(log(n^2)/log(10)), ", "))) \\ _G. C. Greubel_, Jul 10 2017 %o A185679 (Python) %o A185679 def A185679(n): return len(str(n**2)) # _Chai Wah Wu_, Mar 15 2023 %Y A185679 Cf. A055642. %K A185679 nonn,base %O A185679 0,5 %A A185679 _Carmine Suriano_, Feb 23 2011