|
%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
|
