OFFSET
1,1
COMMENTS
If a*10^m + b is a term, where b < 10^(m-1), then so is a*10^k+b for all k > m. - Robert Israel, Feb 21 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local L, M;
L:= convert(n, base, 3);
M:= convert(2*n, base, 3);
if sort(L) = sort(M) then add(L[i]*10^(i-1), i=1..nops(L)) else NULL fi
end proc:
map(f, [$1..1000]); # Robert Israel, Feb 21 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved