A039583 - OEIS

%I #17 Jul 01 2021 03:40:04

%S 0,4,5,24,28,29,30,34,35,51,56,81,91,116,121,144,148,149,168,172,173,

%T 174,178,179,180,184,185,204,208,209,210,214,215,231,236,291,306,310,

%U 311,315,321,326,336,340,341,350,356,375,380,411,416,441,451,471,486

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

%H Robert Israel, <a href="/A039583/b039583.txt">Table of n, a(n) for n = 1..10000</a>

%p filter:= proc(n) local L,x;

%p   L:= convert(n,base,6);

%p   x:= numboccur(1,L);

%p   numboccur(2,L) = x and numboccur(3,L) = x

%p end proc:

%p select(filter, [$0..1000]); # _Robert Israel_, Aug 16 2018

%t okQ[n_]:=Module[{dc6=DigitCount[n,6]},dc6[[1]]==dc6[[2]]==dc6[[3]]]; Select[ Range[0,500],okQ] (* _Harvey P. Dale_, Nov 05 2011 *)

%Y Cf. A007092.

%K nonn,base,easy

%O 1,2

%A _Olivier Gérard_