A223081 Numbers n with distinct digits such that n divides the reversal of n.
1, 2, 3, 4, 5, 6, 7, 8, 9, 1089, 2178, 21978
Offset: 1
Programs
-
Mathematica
Select[FromDigits/@(Flatten[Permutations/@Subsets[Range[0,9],5],1]), Divisible[ IntegerReverse[#],#]&]//Quiet//Union (* Harvey P. Dale, Jan 12 2020 *)
Comments