OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
1 is a term since 1 and 2 are both terms of A093705.
MATHEMATICA
divQ[n_] := Divisible[n, DivisorSum[n, DigitCount[#, 2, 1] &]]; q1 = divQ[1]; Reap[Do[q2 = divQ[n]; If[q1 && q2, Sow[n - 1]]; q1 = q2, {n, 2, 10^5}]][[2, 1]]
SequencePosition[Table[If[Divisible[n, Total[DigitCount[Divisors[n], 2, 1]]], 1, 0], {n, 150000}], {1, 1}][[All, 1]] (* Harvey P. Dale, Jun 14 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Oct 31 2020
STATUS
approved