登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
阿39995 作为n的数字序列的子序列出现的不同素数的数目。 6
0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 2, 0, 1, 0, 2, 0, 1, 1, 1, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 1, 2, 1, 3, 1, 1, 0, 1, 1, 2, 0, 1, 0, 2, 0, 0, 1, 1, 2, 3, 1, 1, 1, 2, 1, 2, 0, 1, 1, 1, 0, 1, 0, 2, 0, 0, 1, 2, 2, 3, 1, 2, 1, 1, 1, 2, 0, 0, 1, 2, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 2, 0, 0, 0, 2, 1, 3, 0, 1 (列表图表参考历史文本内部格式)
抵消
1,13
评论
a(n)计算表示素数的n的数字的子序列。
链接
莱因哈德·祖姆凯勒(Reinhard Zumkeller),n=1..10000时的n,a(n)表
配方奶粉
一个(A094535号(n) )=n和a(m)<n代表m<A094535号(n) ;阿39995(39467139)=100,参见。A205956型. -莱因哈德·祖姆凯勒2012年2月1日
例子
a(103)=3;这三个素数是3、13和103。
数学
cnt[n_]:=模块[{d=IntegerDigits[n]},长度[Union[Select[FromDigits/@Subsets[d],PrimeQ]]];表[cnt[n],{n,105}](*T.D.诺伊2012年1月31日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(子序列,nub)
a039995 n=总和$
映射a010051$nub$map read(尾部$subsequences$show n)
--莱因哈德·祖姆凯勒2012年1月31日
(Python)
从sympy导入isprime
从itertools导入链,组合为梳
def powerset(s):#s的非空子集
返回链.from_iterable(范围(1,len(s)+1)中r的梳(s,r))
定义a(n):
ss=集合(powerset(str(n))中s的int(“”.join(s))
返回和(如果isprime(k),则ss中k的返回和为1)
打印([a(n)表示范围(1106)中的n)]#迈克尔·布拉尼基2022年8月7日
交叉参考
A039997号只统计作为子串出现的素数,即相邻子序列。囊性纤维变性。A035232号.
囊性纤维变性。A010051型.
关键词
非n,基础
作者
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

最后修改时间:美国东部时间2024年4月19日12:14。包含371792个序列。(在oeis4上运行。)