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,2

Links

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

Example

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

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 *)

Crossrefs

Cf. A110805.

Sequence in context: A308560 A285815 A337741 * A357769 A180468 A271955

Adjacent sequences: A110803 A110804 A110805 * A110807 A110808 A110809

Keyword

base,easy,nonn

Author

Amarnath Murthy, Aug 14 2005

Extensions

Corrected and extended by Stefan Steinerberger, Feb 17 2006

Status

approved