OFFSET
1,14
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(A005349(n)) = 0. - Reinhard Zumkeller, Mar 10 2008
MATHEMATICA
Table[Mod[n, Total[IntegerDigits[n]]], {n, 100}] (* Harvey P. Dale, Mar 11 2013 *)
PROG
(Haskell)
a070635 n = n `mod` (a007953 n)
-- Reinhard Zumkeller, Apr 07 2011
(PARI) a(n) = n % sumdigits(n); \\ Michel Marcus, Dec 30 2015
(Magma) [n mod (&+Intseq(n)): n in [1..100]]; // Vincenzo Librandi, Dec 30 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 13 2002
STATUS
approved