A083897 Number of divisors of n with largest digit <= 2 (base 10).
1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 2, 3, 1, 2, 1, 2, 1, 2, 1, 4, 2, 4, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 2, 2, 1, 3, 1, 2, 1, 4, 1, 3, 1, 4, 1, 2, 1, 3, 1, 3, 1, 2, 1, 2, 2, 2, 1, 2, 1, 5, 1, 2, 2, 2, 1, 4, 1, 2, 1, 3, 1, 3, 1, 2, 1, 2, 2, 2, 1, 4, 1, 2, 1, 4, 1, 2, 1, 4, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 2, 5, 2, 3, 1, 2, 2
Offset: 1
Programs
-
Mathematica
Table[Count[Divisors[n],?(Max[IntegerDigits[#]]<3&)],{n,110}] (* _Harvey P. Dale, May 24 2019 *)