login
A096092
Numbers whose digits can be permuted to get a proper divisor.
3
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,1
COMMENTS
Every multiple of 10 is in the sequence.
EXAMPLE
105 is in the sequence because 015 is a permutation of the digits as well as a proper divisor.
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 *)
CROSSREFS
Cf. A096093.
Sequence in context: A328783 A342855 A201014 * A109597 A194233 A263172
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jun 22 2004
EXTENSIONS
Edited and extended by Stefan Steinerberger, Jul 14 2007
STATUS
approved