OFFSET
1,1
EXAMPLE
MATHEMATICA
f[n_] := Times @@ (DigitCount[#, 2, 1] & /@ Divisors[n]); s = {}; m = 3; fs = f /@ Range[m]; Do[If[Equal @@ fs, AppendTo[s, n - m]]; fs = Rest @ AppendTo[fs, f[n]], {n, m + 1, 5*10^9}]; s
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Amiram Eldar, Dec 08 2020
STATUS
approved