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

Links

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

Formula

A385482(a(n)) = A385484(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, i]], {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(i, ", ")));

Crossrefs

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

Sequence in context: A067542 A346156 A129748 * A310198 A310199 A176800

Adjacent sequences: A385480 A385481 A385482 * A385484 A385485 A385486

Keyword

nonn,base

Author

Amiram Eldar, Jun 30 2025

Status

approved