login
A188641
Characteristic function of Niven (or Harshad) numbers.
11
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1
OFFSET
1
COMMENTS
a(A005349(n)) = 1; a(A065877(n)) = 0;
also a(A038186(n)) = 1.
FORMULA
a(n) = A000007(A070635(n)).
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