A023088 Numbers k such that k and 4*k are anagrams.

0, 1782, 2178, 16782, 17604, 17802, 17820, 17832, 17982, 18027, 19728, 19782, 20178, 21678, 21780, 21783, 21798, 21978, 23958, 102564, 103845, 104769, 104895, 105264, 106254, 114528, 125406, 125604, 126054, 128052, 128205, 140256, 140526, 142857

Offset: 1

Author

David W. Wilson

Keywords

• nonn
• base

Comments

All terms are divisible by 3. - Eric M. Schmidt, Jul 12 2014

Links

• David W. Wilson, Table of n, a(n) for n = 1..10001

Crossrefs

Cf. A023086, A023087, A023089, A023090, A023091, A023092, A023093.

Programs

Mathematica

si[n_] := Sort@ IntegerDigits@ n; Flatten@{0, Table[Select[Range[10^d + 2, 3 10^d - 1, 3], si[#] == si[4 #] &], {d, 0, 6}]} (* Giovanni Resta, Mar 20 2017, corrected by Philippe Guglielmetti, Jul 16 2018 *)
Select[Range[0,150000,3],Sort[IntegerDigits[#]]==Sort[ IntegerDigits[ 4#]]&] (* Harvey P. Dale, Dec 23 2017 *)