A385484 Records in A385482.

1, 2, 3, 5, 10, 12, 42, 84, 88, 90, 99, 130, 165, 184, 187, 209, 221, 252, 299, 434, 450, 459, 486, 525, 555, 611, 675, 702, 726, 858, 899, 975, 984, 1034, 1036, 1104, 1107, 1197, 1275, 1357

Offset: 1

Author

Amiram Eldar, Jun 30 2025

Keywords

• nonn
• base
• more

Crossrefs

Cf. A049445, A144363 (decimal analog), A385482, A385483 (indices of records), A385487.

Programs

Mathematica

f[n_] := Module[{m = n, k = 1}, While[!Divisible[m, DigitSum[m, 2]], m += n; k++]; k];
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]

PARI

f(n) = {my(m = n, k = 1); while(m % hammingweight(m), m += n; k++); k;}
list(lim) = my(fm = -1, fi); for(i = 1, lim, fi = f(i); if(fi > fm, fm = fi; print1(fi, ", ")));

Formula

a(n) = A385482(A385483(n)).