%I#25 2022年8月8日08:24:04

%S 0,1,1,0,1,0,0,0，0,1,12,0,1,2,0,1,1,1,1,3,1,2,1,2,1,2,1，

%温度2,1,3,1,1,0,1,1,2,0,1,0,2,0,0,1,2,3,1,1,1,2,1,2,1,0,1,1,1,10,1,2,0，

%U 0,1,2,2,3,1,2,1,1,1,2,0,0,1,2,0,1,1,0,10,1,0,0,1,0,1,1,0,00,02,0,2,1,3,0,1

%N作为N的数字序列的子序列出现的不同素数的数目。

%C a（n）计算表示素数的n的数字的子序列。

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

%F a（A094535（n））=n，a（m）<n，对于m<A094536（n）；A039995（39467139）=100，参考A205956.-_Reinhard Zumkeller，2012年2月1日

%e a（103）=3；这三个素数是3、13和103。

%t cnt[n_]：=模块[{d=IntegerDigits[n]}，长度[Union[Select[FromDigits/@Subsets[d]，PrimeQ]]]；表[cnt[n]，{n，105}]（*T.D.Noe_，2012年1月31日*）

%o（哈斯克尔）

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

%o a039995 n=总和$

%o映射a010051$nub$map读取（尾部$subsequences$show n）

%o——Reinhard Zumkeller，2012年1月31日

%o（Python）

%o来自sympy import isprime

%o来自itertools导入链，组合为梳

%o定义功率集：#s的非空子集

%o返回链.from_iterable（范围为（1，len（s）+1）的r的梳（s，r））

%o定义a（n）：

%o ss=集合（powerset（str（n））中s的int（“”.join（s））

%o返回和（如果isprime（k），ss中k为1）

%o打印（[a（n）代表范围（1106）中的n）]#_Michael S.Branicky_，2022年8月7日

%Y A039997只计算作为子串出现的素数，即连续的子序列。参见A035232。

%Y参考A010051。

%K nonn，基础

%O 1,13号

%大卫·W·威尔逊_