|
%I #18 Feb 23 2024 15:28:56
%S 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,
%T 55,60,66,70,77,80,88,90,99,100,101,102,104,105,110,111,112,115,120,
%U 122,123,124,125,126,128,132,135,140,144,145
%N Numbers which are multiples of their largest digit (decimal notation).
%H David A. Corneth, <a href="/A071204/b071204.txt">Table of n, a(n) for n = 1..10000</a>
%e 15 is a term since 15/5 = 3.
%e 16 is not a term because 16/6 = 2.66666666...
%t Select[Range[200], Divisible[#, Sort[IntegerDigits[#]][[-1]]] &] (* _Alonso del Arte_, Sep 09 2017 *)
%o (PARI) isok(n) = (n % vecmax(digits(n))) == 0; \\ _Michel Marcus_, Sep 11 2017
%Y Cf. A071203, A071205, A071206, a(n) mod A054055(n) = 0.
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, May 16 2002
|
