OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L, x;
L:= convert(n, base, 6);
x:= numboccur(1, L);
numboccur(2, L) = x and numboccur(3, L) = x
end proc:
select(filter, [$0..1000]); # Robert Israel, Aug 16 2018
MATHEMATICA
okQ[n_]:=Module[{dc6=DigitCount[n, 6]}, dc6[[1]]==dc6[[2]]==dc6[[3]]]; Select[ Range[0, 500], okQ] (* Harvey P. Dale, Nov 05 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved