A385483 Where records occur in A385482.

1, 3, 7, 11, 13, 19, 103, 391, 1811, 3589, 5147, 6683, 21883, 46159, 64133, 149839, 151013, 318377, 650543, 1279211, 42559939, 43120271, 55201423, 198069181, 265237811, 929670011, 930260173, 1879562281, 3320654641, 5390681357, 52883996713, 78842843063, 250434427519

Offset: 1

Author

Amiram Eldar, Jun 30 2025

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..40

Crossrefs

Cf. A049445, A144364 (decimal analog), A385482, A385484 (record values), A385486.

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, i]], {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(i, ", ")));

Formula

A385482(a(n)) = A385484(n).