OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(r) local L, n, i;
L:= convert(r, base, 2);
n:= add(2*3^(i-1)*L[i], i=1..nops(L));
if has(convert(n, base, 4), 1) then NULL else n fi
end proc:
map(f, [$0..10000]); # Robert Israel, Feb 04 2016
MATHEMATICA
Select[Range[0, 42000, 2], FreeQ[Flatten[{IntegerDigits[ #, 4], IntegerDigits[ #, 3]}], 1]&]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Apr 26 2006
STATUS
approved