A096092 Numbers whose digits can be permuted to get a proper divisor.
10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 105, 108, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 405, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500
Offset: 1
Examples
105 is in the sequence because 015 is a permutation of the digits as well as a proper divisor.
Crossrefs
Cf. A096093.
Programs
-
Mathematica
a = {}; For[n = 1, n < 1000, n++, b = Permutations[IntegerDigits[n]]; For[i = 1, i < Length[b] + 1, i++, If[IntegerQ[n/FromDigits[b[[i]]]], If[Not[FromDigits[b[[i]]] == n], AppendTo[a, n]]]]]; Union[a, a] Select[Range[500],AnyTrue[#/(Rest[FromDigits/@Permutations[ IntegerDigits[ #]]]),IntegerQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 04 2018 *)
Extensions
Edited and extended by Stefan Steinerberger, Jul 14 2007
Comments