login
A117496
Numbers with no 1's in base 3 & 4 expansions.
3
0, 2, 8, 56, 60, 62, 162, 168, 170, 186, 188, 224, 234, 236, 240, 242, 512, 546, 558, 560, 648, 650, 654, 672, 674, 702, 704, 2106, 2108, 2178, 2184, 2186, 13184, 13194, 13196, 13290, 13292, 13304, 13308, 13310, 14586, 14588, 15072, 15074, 15084, 15086
OFFSET
1,2
COMMENTS
All terms are even. Intersection of A005823 & A023709.
LINKS
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
Sequence in context: A134954 A087422 A081667 * A117564 A254222 A023179
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Apr 26 2006
STATUS
approved