OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..39
MATHEMATICA
f[n_] := Module[{k = 1, m = n}, While[!Divisible[m, DigitSum[m]], m +=n; k++]; k]; seq[lim_] := Module[{s = {}, fm = 0, fi}, Do[fi = f[i]; If[fi > fm, fm = fi; AppendTo[s, i]], {i, 1, lim}]; s]; seq[10^5] (* Amiram Eldar, Jun 30 2025 *)
PROG
(PARI) f(n) = {my(k = 1, m = n); while(m % sumdigits(m), m +=n; k++); k; }
list(lim) = my(fm = 0, fi); for(i = 1, lim, fi = f(i); if(fi > fm, fm = fi; print1(i, ", "))); \\ Amiram Eldar, Jun 30 2025
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, Sep 19 2008
EXTENSIONS
a(27)-a(30) from Donovan Johnson, Jul 20 2010
a(31)-a(32) from Amiram Eldar, Jun 30 2025
STATUS
approved
