%I#17 2021年8月5日07:00:19

%S 1,2,3,4,83,91,93,99124136161200206272314467524532540545，

%电话：546549609643656672680705706708777717747757781784，

%电话：786787789793794796798799843871906

%N对k进行编号，使k的每个以5为基数的数字都是以8为基数的k。

%H Reinhard Zumkeller，n的表，n=1..10000的a（n）</a>

%t选择[Range[1000]，SubsetQ[IntegerDigits[#，8]，IntegerPigits[#,5]&]（*哈维·P·戴尔，2015年10月13日*）

%o（哈斯克尔）

%o导入数据。列表（（\\），nub）

%o a037395 n=a037395_列表！！（n-1）

%o a037395_list=过滤器f[1..]，其中

%o f x=空$nub（ds 5 x）\\nub（ds8 x）

%o ds b x=如果x>0，则d:ds b x'else[]，其中（x'，d）=divMod x b

%o——Reinhard Zumkeller，2013年5月30日

%Y参考A007091、A007094。

%Y参见A037393、A037394、A03739、A03737。

%K nonn，基础

%O 1,2号机组

%百灵鸟金伯利_