A048596 Numbers k such that (k mod (sum of decimal digits of k)) divides k.

11, 13, 15, 16, 17, 22, 26, 32, 33, 39, 41, 43, 44, 51, 55, 56, 64, 66, 75, 77, 78, 82, 86, 88, 91, 92, 96, 97, 99, 101, 104, 105, 106, 116, 121, 122, 123, 125, 130, 131, 138, 141, 142, 145, 147, 155, 157, 161, 168, 170, 172, 174, 176, 178, 181, 183, 184, 186, 187

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

filter:= proc(n) local s, t;
  s:= convert(convert(n, base, 10), `+`);
  t:= n mod s;
  (t <> 0) and (n mod t = 0)
end proc:
select(filter, [$1..200]); # Robert Israel, Jul 19 2023

Mathematica

Select[ Range[200], Mod[ #, Plus @@ IntegerDigits[ # ]] != 0 && IntegerQ[ # / Mod[ #, Plus @@ IntegerDigits[ # ]]] &]
Select[Range[200], Divisible[#, Mod[#, Total[IntegerDigits[#]]]]&]//Quiet (* Harvey P. Dale, May 07 2017 *)

Crossrefs

Cf. A007953, A070635.

Sequence in context: A111347 A026818 A163140 * A228709 A358270 A358076

Adjacent sequences: A048593 A048594 A048595 * A048597 A048598 A048599

Keyword

nonn,base

Author

Reinhard Zumkeller, Jun 26 2003

Status

approved