A144363 Records in A144261.

1, 10, 12, 18, 21, 30, 42, 48, 54, 60, 72, 96, 108, 120, 130, 150, 165, 168, 180, 192, 210, 216, 240, 252, 280, 322, 441, 462, 472, 486, 488, 520, 528, 536, 560, 600, 630, 729, 1188

Offset: 1

Author

Klaus Brockhaus, Sep 19 2008

Keywords

• base
• nonn
• more

Crossrefs

Cf. A005349 (Niven numbers), A144261 (smallest k such that k*n is a Niven number), A144364 (where records occur in A144261).

Programs

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, fi]], {i, 1, lim}]; s]; seq[10^5] (* Amiram Eldar, Jun 30 2025 *)

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(fi, ", "))); \\ Amiram Eldar, Jun 30 2025

Extensions

a(27)-a(30) from Donovan Johnson, Jul 20 2010

a(31)-a(39) from Amiram Eldar, Jun 30 2025