|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
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:
|
|
MATHEMATICA
|
Select[Range[0, 42000, 2], FreeQ[Flatten[{IntegerDigits[ #, 4], IntegerDigits[ #, 3]}], 1]&]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|