检验过的
经核准的
提出
编辑
囊性纤维变性。A007093号,A007094号.
数字n个 k 这样每个基地 -第7位,共7位n个 k 是一个基础 -第8位,共n个k.
b7b8Q[n_]:=模块[{idn7=Union[IntegerDigits[n,7]]},交集[idn7,Union[integerDiges[n,8]]==idn7];选择[范围[700],b7b8Q](*哈维·P·戴尔2013年12月15日*)
(哈斯克尔)
导入数据。列表((\\),nub)
a037402 n=a037402_list!!(n-1)
a037402_list=过滤器f[1..],其中
f x=空$nub(ds 7 x)\\nub(ds8 x)
ds b x=如果x>0,则d:ds b x'else[],其中(x',d)=divMod x b
--莱因哈德·祖姆凯勒2013年5月30日
囊性纤维变性。A037403号,A037404号.