|
%I #9 Dec 26 2019 10:45:44
%S 1024,1042,1463,10024,10042,10204,10240,10346,10402,10420,10634,12245,
%T 12425,14063,14306,14367,14603,14630,14637,14763,16347,16743,17024,
%U 17042,17463,100024,100042,100204,100240,100346,100402,100420,100634,102004
%N k and 4k are anagrams in base 8 (written in base 8).
%H Robert Israel, <a href="/A023075/b023075.txt">Table of n, a(n) for n = 1..10000</a>
%p filter:= proc(n)
%p sort(convert(n,base,8))=sort(convert(4*n,base,8))
%p end proc:
%p g:= proc(n) local L; L:= convert(n,base,8);
%p add(L[i]*10^(i-1),i=1..nops(L))
%p end proc:
%p map(g, select(filter, [seq(seq(i,i=8^j .. 2*8^j-1),j=1..5)])); # _Robert Israel_, Dec 25 2019
%K nonn,base
%O 1,1
%A _David W. Wilson_
|
