OFFSET
1,2
COMMENTS
MATHEMATICA
f[n_] := -DivisorSum[n, (-1)^DigitCount[#, 2, 1] &]; fm = 2; s = {}; Do[f1 = f[n]; If[f1 < fm, fm = f1; AppendTo[s, n]], {n, 1, 10^5}]; s
PROG
(PARI) f(n) = -sumdiv(n, d, (-1)^hammingweight(d));
lista(nmax) = {my(fm = 2); for(n = 1, nmax, f1 = f(n); if(f1 < fm, fm = f1; print1(n, ", ")))};
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Oct 12 2022
STATUS
approved