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 A117218 #15 Sep 05 2020 08:56:36 %S A117218 0,1,4,9,16,36,64,144,225,324,441,576,729,900,1024,1156,1296,1444, %T A117218 1600,1764,1936,2116,2304,2500,2704,2916,3136,3364,3600,3844,4096, %U A117218 4356,4624,4900,5184,5476,5776,6084,6400,6724,7056,7396,7744,8100,8464,8836,9216,9604,10000 %N A117218 Squares divisible by their number of digits. %H A117218 David A. Corneth, <a href="/A117218/b117218.txt">Table of n, a(n) for n = 1..10000</a> %e A117218 225 is in the sequence because it is a square divisible by 3. %t A117218 Join[{0},Select[Range[200]^2,Divisible[#,IntegerLength[#]]&]] (* _Harvey P. Dale_, May 06 2015 *) %o A117218 (PARI) lista(nn) = {for (i=0, nn, if (issquare(i) && (i % #Str(i) == 0) , print1(i, ", ")););} \\ _Michel Marcus_, Jun 01 2013 %Y A117218 Intersection of A000290 and A098952. %K A117218 base,easy,nonn %O A117218 1,3 %A A117218 Luc Stevens (lms022(AT)yahoo.com), Apr 21 2006 %E A117218 3364 inserted by _Michel Marcus_, Jun 01 2013 %E A117218 Corrected and extended by _Harvey P. Dale_, May 06 2015