%I A110806
%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,192,
%U A110806 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.
%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 
               (stefan.steinerberger(AT)gmail.com), Mar 18 2006
%Y A110806 Cf. A110805.
%Y A110806 Sequence in context: A005349 A085135 A085133 this_sequence A033075 A132577 
               A044960
%Y A110806 Adjacent sequences: A110803 A110804 A110805 this_sequence A110807 A110808 
               A110809
%K A110806 base,easy,nonn
%O A110806 1,2
%A A110806 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 14 2005
%E A110806 Corrected and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Feb 17 2006