OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn,base
AUTHOR
STATUS
approved