%I #21 Jun 20 2021 15:12:40
%S 0,1,2,5,6,7,8,9,12,13,14,15,16,19,20,25,31,35,36,37,40,41,42,43,44,
%T 47,48,49,50,51,54,55,56,57,58,61,62,63,64,65,68,69,74,80,84,85,86,89,
%U 90,91,92,93,96,97,98,99,100,103,104,105,106,107,110,111,112,113,114
%N Numbers whose base-7 representation has the same number of 3's and 4's.
%H Robert Israel, <a href="/A039044/b039044.txt">Table of n, a(n) for n = 1..10000</a>
%p filter:= proc(n) local L;
%p L:= convert(n,base,7);
%p numboccur(3,L)=numboccur(4,L)
%p end proc:
%p select(filter, [$0..1000]); # _Robert Israel_, Feb 01 2021
%t Select[Range[0,200],DigitCount[#,7,3]==DigitCount[#,7,4]&] (* _Harvey P. Dale_, Feb 07 2019 *)
%Y Cf. A007093.
%K nonn,base,easy
%O 1,3
%A _Olivier GĂ©rard_
|