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,2

Links

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

Crossrefs

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

Sequence in context: A129120 A134516 A379236 * A051247 A242335 A050579

Adjacent sequences: A144360 A144361 A144362 * A144364 A144365 A144366

Keyword

base,nonn,more

Author

Klaus Brockhaus, Sep 19 2008

Extensions

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

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

Status

approved