%I#21 2021年6月20日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,
%电话:47,48,49,50,51,54,55,56,57,58,61,62,63,64,65,68,69,74,80,84,85,86,89,
%电话:90,91,92,93,96,97,98,99100103104105106107110111112113114
%N个以7为基数的表示具有相同数量的3和4的数。
%H Robert Israel,n的表,n的a(n)=1..10000</a>
%p过滤器:=proc(n)局部L;
%p L:=换算(n,基数,7);
%p编号发生(3,L)=编号发生(4,L)
%p端程序:
%p选择(筛选器,[$0..1000]);#_罗伯特·伊斯雷尔,2021年2月1日
%t选择[Range[0200],DigitCount[#,7,3]==数字计数[#,7.4]&](*H arvey P.Dale_,2019年2月7日*)
%Y参考A007093。
%K nonn,基础,简单
%氧1,3
%A _利维尔·杰拉德_
|