A096092 - OEIS

%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