|
%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_
|
