A023075 Positive numbers k such that k and 4*k are anagrams in base 8 (written in base 8).

1024, 1042, 1463, 10024, 10042, 10204, 10240, 10346, 10402, 10420, 10634, 12245, 12425, 14063, 14306, 14367, 14603, 14630, 14637, 14763, 16347, 16743, 17024, 17042, 17463, 100024, 100042, 100204, 100240, 100346, 100402, 100420, 100634, 102004

Offset: 1

Author

David W. Wilson

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007094.

Programs

Maple

filter:= proc(n)
  sort(convert(n,base,8))=sort(convert(4*n,base,8))
end proc:
g:= proc(n) local L; L:= convert(n,base,8);
add(L[i]*10^(i-1),i=1..nops(L))
end proc:
map(g, select(filter, [seq(seq(i,i=8^j .. 2*8^j-1),j=1..5)])); # Robert Israel, Dec 25 2019

Mathematica

FromDigits[IntegerDigits[#, 8]] & /@ Select[Range[50000], SameQ @@ Sort /@ IntegerDigits[{#, 4*#}, 8] &] (* Amiram Eldar, Aug 07 2025 *)