OFFSET
1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein, Harshad Numbers
Wikipedia, Harshad number
MATHEMATICA
Table[If[Mod[n, Total[IntegerDigits[n]]]==0, 1, 0], {n, 120}] (* Harvey P. Dale, Jan 07 2026 *)
PROG
(Haskell)
a188641 = (1 -) . signum . a070635
(Python)
def A188641(n): return int(not n%sum(int(d) for d in str(n))) # Chai Wah Wu, Oct 08 2025
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 07 2011
STATUS
approved