The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
Every multiple of 10 is in the sequence.
LINKS
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 17 12:36 EDT 2024. Contains 373445 sequences. (Running on oeis4.)