%I #7 Sep 04 2018 16:54:32
%S 10,20,30,40,50,60,70,80,90,100,105,108,110,120,130,140,150,160,170,
%T 180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,
%U 350,360,370,380,390,400,405,410,420,430,440,450,460,470,480,490,500
%N Numbers whose digits can be permuted to get a proper divisor.
%C Every multiple of 10 is in the sequence.
%e 105 is in the sequence because 015 is a permutation of the digits as well as a proper divisor.
%t 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]
%t Select[Range[500],AnyTrue[#/(Rest[FromDigits/@Permutations[ IntegerDigits[ #]]]),IntegerQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 04 2018 *)
%Y Cf. A096093.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Jun 22 2004
%E Edited and extended by _Stefan Steinerberger_, Jul 14 2007
