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

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, 90, 102, 108, 111, 114, 117, 120, 126, 132, 135, 144, 150, 153, 156, 162, 171, 180, 192, 195, 198, 201, 204, 207, 210, 216, 222, 225, 228, 234, 240, 243, 252

Offset: 1

Author

Amarnath Murthy, Aug 14 2005

Keywords

• base
• easy
• nonn

Examples

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

Links

• G. C. Greubel, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A110805.

Programs

Mathematica

Select[Range[260], IntegerQ[ #/Sum[DigitCount[ # ][[i]]*i, {i, 1, 9}]] && IntegerQ[ #/Floor[Log[10, # ] + 1]] &] (* Stefan Steinerberger, Mar 18 2006 *)
Select[Range[300],And@@Divisible[#,{Total[IntegerDigits[#]], IntegerLength[ #]}]&] (* Harvey P. Dale, May 10 2015 *)

Extensions

Corrected and extended by Stefan Steinerberger, Feb 17 2006