OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_] := DivisorSum[n, DigitCount[#, 2, 1] &]; s = {}; m = 4; fs = f /@ Range[m]; Do[If[Equal @@ fs, AppendTo[s, n - m]]; fs = Rest @ AppendTo[fs, f[n]], {n, m + 1, 10^7}]; s
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Oct 28 2020
STATUS
approved