|
Search: id:A096092
|
|
|
| A096092 |
|
Numbers whose digits can be permuted to get a proper divisor. |
|
+0
2
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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]
|
|
CROSSREFS
|
Cf. A096093.
Sequence in context: A011540 A098394 A057169 this_sequence A109597 A008592 A118959
Adjacent sequences: A096089 A096090 A096091 this_sequence A096093 A096094 A096095
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 22 2004
|
|
EXTENSIONS
|
Edited and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jul 14 2007
|
|
|
Search completed in 0.002 seconds
|
