OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L;
L:= convert(n, base, 6);
numboccur(0, L)=numboccur(3, L)
end proc:
select(filter, [$1..200]); # Robert Israel, May 30 2018
MATHEMATICA
Select[Range[200], DigitCount[#, 6, 0]==DigitCount[#, 6, 3]&] (* Harvey P. Dale, Feb 25 2015 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved