A110806 - OEIS

%I #12 Oct 19 2017 20:11:05

%S 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 90,102,108,111,114,117,120,126,132,135,144,150,153,156,162,171,180,

%U 192,195,198,201,204,207,210,216,222,225,228,234,240,243,252

%N Numbers n such that sum of the digits as well as number of digits divides n.

%H G. C. Greubel, <a href="/A110806/b110806.txt">Table of n, a(n) for n = 1..5000</a>

%e 48 is a member as sum of the digits 4+8 = 12 and number of digits 2 both divide 48.

%t Select[Range[260], IntegerQ[ #/Sum[DigitCount[ # ][[i]]*i, {i, 1, 9}]] && IntegerQ[ #/Floor[Log[10, # ] + 1]] &] (* _Stefan Steinerberger_, Mar 18 2006 *)

%t Select[Range[300],And@@Divisible[#,{Total[IntegerDigits[#]], IntegerLength[ #]}]&] (* _Harvey P. Dale_, May 10 2015 *)

%Y Cf. A110805.

%K base,easy,nonn

%O 1,2

%A _Amarnath Murthy_, Aug 14 2005

%E Corrected and extended by _Stefan Steinerberger_, Feb 17 2006