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

Links

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

Formula

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

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]

Prog

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

Crossrefs

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

Sequence in context: A050051 A252353 A241167 * A083571 A123090 A129281

Adjacent sequences: A385481 A385482 A385483 * A385485 A385486 A385487

Keyword

nonn,base,more

Author

Amiram Eldar, Jun 30 2025

Status

approved