A071204 Numbers which are multiples of their largest digit (decimal notation).

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 15, 20, 22, 24, 25, 30, 33, 35, 36, 40, 44, 45, 48, 50, 55, 60, 66, 70, 77, 80, 88, 90, 99, 100, 101, 102, 104, 105, 110, 111, 112, 115, 120, 122, 123, 124, 125, 126, 128, 132, 135, 140, 144, 145

Offset: 1

Author

Reinhard Zumkeller, May 16 2002

Keywords

• nonn
• base

Examples

			15 is a term since 15/5 = 3.
16 is not a term because 16/6 = 2.66666666...
		

Links

• David A. Corneth, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A071203, A071205, A071206, a(n) mod A054055(n) = 0.

Programs

Mathematica

Select[Range[200], Divisible[#, Sort[IntegerDigits[#]][[-1]]] &] (* Alonso del Arte, Sep 09 2017 *)

PARI

isok(n) = (n % vecmax(digits(n))) == 0; \\ Michel Marcus, Sep 11 2017