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 A118547 #17 Jul 07 2025 10:44:32 %S A118547 1,4,9,36,81,100,144,225,324,400,441,576,900,1296,1521,1764,2025,2304, %T A118547 2401,2601,2704,2916,3600,3969,4225,4356,4624,5184,6084,6400,7056, %U A118547 7744,8100,9216,10000,10404,10816,11025,11664,12100,12321,12544,13689,14400 %N A118547 Squares which are divisible by the sum of their digits. %C A118547 Intersection of A000290 and A005349. - _Michel Marcus_, Feb 27 2014 %H A118547 Amiram Eldar, <a href="/A118547/b118547.txt">Table of n, a(n) for n = 1..10000</a> %e A118547 576 = 24^2 is a term because it is a square and it is divisible by the sum of its digits, 5+7+6 = 18. %t A118547 Select[Range[120]^2, Divisible[#, Plus @@ IntegerDigits[#]] &] (* _Amiram Eldar_, Mar 24 2021 *) %o A118547 (PARI) isok(n) = issquare(n) && !(n % sumdigits(n)); \\ _Michel Marcus_, Feb 27 2014 %Y A118547 Cf. A000290, A005349. %K A118547 base,nonn %O A118547 1,2 %A A118547 Luc Stevens (lms022(AT)yahoo.com), May 03 2006