A039583 Numbers whose base-6 representation has the same number of 1's, 2's and 3's.

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

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

Cf. A007092.

Sequence in context: A171885 A331261 A063986 * A042123 A041531 A089499

Adjacent sequences: A039580 A039581 A039582 * A039584 A039585 A039586

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved