A071206 A071204(n) divided by its largest digit.
1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 11, 6, 3, 10, 11, 6, 5, 10, 11, 7, 6, 10, 11, 9, 6, 10, 11, 10, 11, 10, 11, 10, 11, 10, 11, 100, 101, 51, 26, 21, 110, 111, 56, 23, 60, 61, 41, 31, 25, 21, 16, 44, 27, 35, 36, 29, 21, 30, 31, 26, 27, 21, 25, 23, 21
Offset: 1
Examples
a(25) = A071204(25)/A071205(25) = 48/8 = 6.
Programs
-
Mathematica
#/Max[IntegerDigits[#]]&/@Select[Range[200],Divisible[#,Max[IntegerDigits[#]]]&] (* Harvey P. Dale, Mar 26 2023 *)