login
A023075
k and 4k are anagrams in base 8 (written in base 8).
1
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,1
LINKS
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
CROSSREFS
Sequence in context: A084912 A336780 A217850 * A084918 A235719 A365583
KEYWORD
nonn,base
STATUS
approved