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
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jun 22 2004
EXTENSIONS
Edited and extended by Stefan Steinerberger, Jul 14 2007
STATUS
approved