A023091 Numbers k such that k and 7*k are anagrams.

0, 1359, 11688, 11883, 12903, 13029, 13359, 13449, 13590, 13599, 13659, 107583, 108726, 111873, 116688, 116880, 116988, 118731, 118830, 118833, 119883, 123876, 124875, 126888, 127389, 129003, 129030, 129033, 129903, 130029, 130149, 130290

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, A023088, A023089, A023090, A023092, A023093.

Programs

Mathematica

si[n_] := Sort@ IntegerDigits@ n; Flatten@{0, Table[Select[Range[10^d + 2, 2 10^d - 1, 3], si[#] == si[7 #] &], {d, 0, 6}]} (* Giovanni Resta, Mar 20 2017 *)
Select[3*Range[0,50000],Sort[IntegerDigits[7 #]]==Sort[IntegerDigits[#]]&] (* Harvey P. Dale, Jan 06 2022 *)