OFFSET
1,1
LINKS
MAPLE
M:= 6: # get all terms < 6^M
sort([seq(seq(seq(seq(add(6^(m-j)*`if`(member(j, S2), d2, d1), j=1..m) ,
S2 = combinat:-powerset({$2..m}) minus {{}}),
d2 = {$0..5} minus {d1}), d1 = 1..5), m=2..M)]); # Robert Israel, Dec 03 2015
MATHEMATICA
fQ[n_] := Length@ Union@ IntegerDigits[n, 6] == 2; Select[Range@117, fQ] (* Robert G. Wilson v, Dec 03 2015 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved