A096091 Numbers n with property that largest number formed from digits of n (A004186(n)) is divisible by smallest number formed from digits of n (A004185(n)).
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 20, 22, 30, 33, 40, 44, 50, 55, 60, 66, 70, 77, 80, 88, 90, 99, 100, 101, 105, 108, 110, 111, 150, 180, 200, 202, 220, 222, 300, 303, 330, 333, 400, 404, 405, 440, 444, 450, 500, 501, 504, 505, 510, 540, 550, 555, 600, 606
Offset: 1
Examples
110 is a member as 110/011=10.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..10000
Programs
-
Maple
isA096091 := proc(n) if modp( A004186(n),A004185(n))= 0 then true; else false; end if; end proc: for n from 1 to 1000 do if isA096091(n) then printf("%d,",n) ; end if; end do: # R. J. Mathar, Jul 26 2015
-
Mathematica
Select[Range[999], (d = Sort@ IntegerDigits@ #; Divisible@@ FromDigits/@ {Reverse@ d, d})&] (* Giovanni Resta, Jul 26 2015 *)
Extensions
Edited, corrected and extended by Robert G. Wilson v, Jun 23 2004
Entry revised by Editors of the OEIS, Jul 26 2015
Comments