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 A110806 #12 Oct 19 2017 20:11:05
%S A110806 1,2,3,4,5,6,7,8,9,10,12,18,20,24,30,36,40,42,48,50,54,60,70,72,80,84,
%T A110806 90,102,108,111,114,117,120,126,132,135,144,150,153,156,162,171,180,
%U A110806 192,195,198,201,204,207,210,216,222,225,228,234,240,243,252
%N A110806 Numbers n such that sum of the digits as well as number of digits divides n.
%H A110806 G. C. Greubel, <a href="/A110806/b110806.txt">Table of n, a(n) for n = 1..5000</a>
%e A110806 48 is a member as sum of the digits 4+8 = 12 and number of digits 2 both divide 48.
%t A110806 Select[Range[260], IntegerQ[ #/Sum[DigitCount[ # ][[i]]*i, {i, 1, 9}]] && IntegerQ[ #/Floor[Log[10, # ] + 1]] &] (* _Stefan Steinerberger_, Mar 18 2006 *)
%t A110806 Select[Range[300],And@@Divisible[#,{Total[IntegerDigits[#]], IntegerLength[ #]}]&] (* _Harvey P. Dale_, May 10 2015 *)
%Y A110806 Cf. A110805.
%K A110806 base,easy,nonn
%O A110806 1,2
%A A110806 _Amarnath Murthy_, Aug 14 2005
%E A110806 Corrected and extended by _Stefan Steinerberger_, Feb 17 2006