|
%I #25 Jul 16 2018 10:38:55
%S 0,1782,2178,16782,17604,17802,17820,17832,17982,18027,19728,19782,
%T 20178,21678,21780,21783,21798,21978,23958,102564,103845,104769,
%U 104895,105264,106254,114528,125406,125604,126054,128052,128205,140256,140526,142857
%N Numbers k such that k and 4*k are anagrams.
%C All terms are divisible by 3. - _Eric M. Schmidt_, Jul 12 2014
%H David W. Wilson, <a href="/A023088/b023088.txt">Table of n, a(n) for n = 1..10001</a>
%t 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 *)
%t Select[Range[0,150000,3],Sort[IntegerDigits[#]]==Sort[ IntegerDigits[ 4#]]&] (* _Harvey P. Dale_, Dec 23 2017 *)
%Y Cf. A023086, A023087, A023089, A023090, A023091, A023092, A023093.
%K nonn,base
%O 1,2
%A _David W. Wilson_
|
