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,2

Links

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

Example

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A271239 A083970 A246088 * A002796 A055471 A278328

Adjacent sequences: A071201 A071202 A071203 * A071205 A071206 A071207

Keyword

nonn,base

Author

Reinhard Zumkeller, May 16 2002

Status

approved