This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A144363 #9 Jun 30 2025 10:17:56
%S A144363 1,10,12,18,21,30,42,48,54,60,72,96,108,120,130,150,165,168,180,192,
%T A144363 210,216,240,252,280,322,441,462,472,486,488,520,528,536,560,600,630,
%U A144363 729,1188
%N A144363 Records in A144261.
%t A144363 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 *)
%o A144363 (PARI) f(n) = {my(k = 1, m = n); while(m % sumdigits(m), m +=n; k++); k;}
%o A144363 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
%Y A144363 Cf. A005349 (Niven numbers), A144261 (smallest k such that k*n is a Niven number), A144364 (where records occur in A144261).
%K A144363 base,nonn,more
%O A144363 1,2
%A A144363 _Klaus Brockhaus_, Sep 19 2008
%E A144363 a(27)-a(30) from _Donovan Johnson_, Jul 20 2010
%E A144363 a(31)-a(39) from _Amiram Eldar_, Jun 30 2025