OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..5000
EXAMPLE
1 is a term since 1, 2 and 3 are terms of A093705.
MATHEMATICA
divQ[n_] := Divisible[n, DivisorSum[n, DigitCount[#, 2, 1] &]]; div = divQ /@ Range[3]; Reap[Do[If[And @@ div, Sow[k - 3]]; div = Join[Rest[div], {divQ[k]}], {k, 4, 10^7}]][[2, 1]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Oct 31 2020
STATUS
approved