A023093 Numbers k such that k and 9*k are anagrams.
0, 1089, 10089, 10449, 10890, 10899, 10989, 100089, 100449, 100890, 100899, 100989, 102249, 104490, 104499, 106749, 107793, 107892, 108900, 108990, 108999, 109890, 109899, 109989, 1000089, 1000449, 1000890, 1000899, 1000989, 1002249, 1004490
Offset: 1
Links
- David W. Wilson, Table of n, a(n) for n = 1..10001
Programs
-
Mathematica
si[n_] := Sort@ IntegerDigits@ n; Flatten@{0, Table[Select[Range[10^d + 8, 2 10^d - 1, 9], si[#] == si[9 #] &], {d, 0, 6}]} (* Giovanni Resta, Mar 20 2017 *)
Comments