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 A385484 #6 Jul 01 2025 01:10:43
%S A385484 1,2,3,5,10,12,42,84,88,90,99,130,165,184,187,209,221,252,299,434,450,
%T A385484 459,486,525,555,611,675,702,726,858,899,975,984,1034,1036,1104,1107,
%U A385484 1197,1275,1357
%N A385484 Records in A385482.
%F A385484 a(n) = A385482(A385483(n)).
%t A385484 f[n_] := Module[{m = n, k = 1}, While[!Divisible[m, DigitSum[m, 2]], m += n; k++]; k];
%t A385484 seq[lim_] := Module[{s = {}, fm = -1, fi}, Do[fi = f[i]; If[fi > fm, fm = fi; AppendTo[s, fi]], {i, 1, lim}]; s]; seq[10^4]
%o A385484 (PARI) f(n) = {my(m = n, k = 1); while(m % hammingweight(m), m += n; k++); k;}
%o A385484 list(lim) = my(fm = -1, fi); for(i = 1, lim, fi = f(i); if(fi > fm, fm = fi; print1(fi, ", ")));
%Y A385484 Cf. A049445, A144363 (decimal analog), A385482, A385483 (indices of records), A385487.
%K A385484 nonn,base,more
%O A385484 1,2
%A A385484 _Amiram Eldar_, Jun 30 2025