OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
f[n_] := DivisorSum[n, DigitCount[#, 2, 1] &]; s = {}; m = 5; 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