login
This site is supported by donations 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

Table of n, a(n) for n=1..53.

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: A098394 A057169 A201014 * A109597 A194233 A263172

Adjacent sequences:  A096089 A096090 A096091 * A096093 A096094 A096095

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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 23 20:32 EDT 2019. Contains 325264 sequences. (Running on oeis4.)