OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..48
MATHEMATICA
f[n_] := -DivisorSum[n, (-1)^DigitCount[#, 2, 1] &]; fm = 0; 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 = 0); 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