login
A039583
Numbers whose base-6 representation has the same number of 1's, 2's and 3's.
1
0, 4, 5, 24, 28, 29, 30, 34, 35, 51, 56, 81, 91, 116, 121, 144, 148, 149, 168, 172, 173, 174, 178, 179, 180, 184, 185, 204, 208, 209, 210, 214, 215, 231, 236, 291, 306, 310, 311, 315, 321, 326, 336, 340, 341, 350, 356, 375, 380, 411, 416, 441, 451, 471, 486
OFFSET
1,2
LINKS
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
Cf. A007092.
Sequence in context: A171885 A331261 A063986 * A042123 A041531 A089499
KEYWORD
nonn,base,easy
STATUS
approved