OFFSET
1,10
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A235600[n_]:=With[{d=Total[IntegerDigits[n]]}, If[Divisible[n, d], n/d, n]];
Array[A235600, 100] (* Paolo Xausa, Dec 06 2023 *)
PROG
(PARI) a(n) = my(s=sumdigits(n)); if (n % s, n, n/s); \\ Michel Marcus, Jul 15 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Jan 18 2014
STATUS
approved