登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A039993号 n中嵌入的不同素数。 18
1、1、1、1、0、1、0、1、1、1、0、1、0、0、0、0、1、1、3、1、1、1、1、3、1、0、1、1、1、1、1、1、1、1、2、1、2、1、2、1、2、1、2、3、3、1、1、1、1、1、2、1、2、1、2、0、1、2、0、0、0、2、0、2、1、1、1、1、1、2、2、1、1、1、0、0、0、0、1、1、1、0、0、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1、1 2,1,1,3,0,0,1,2,0,1,0,1,0,1,1,2,1,0,2,0,3,1,0,0,2,1,4,2,1 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,13号

评论

a(n)计算表示素数的n的数字的(不同的)置换子序列。

链接

T、 D.不,n=1..10000的n,a(n)表

C、 考德威尔,主要词汇,原始数

J、 P.Delahaye,Primes猎人,1379非常原始(法语)[断开的链接]

M、 基思,包含许多嵌入素数的整数

W、 施耐德,原始数

G、 维勒明的数字年鉴,迈克·基思的原始数(法语)。

例子

a(17)=3,因为我们可以得到7,17和71。a(22)=1,因为我们只能得到一个素数(相反,A075053型(22)=2)。

a(1013)=14,因为从1013的数字置换导出的素子集是{3,11,13,31,101,103,113,131,311,1013,1031,1103,1301,3011}。

数学

需要[“离散地Math`Combinica `”];f[n何时]:=块{a=滴[排序[子集[子集[整数数字[n]]]],1,1],b=c={},k=1,l,l},l=长度[a]+1;同时[k<l,b=追加[b,b=追加[b,b,b,b,b,b,b,b,b,b,b,b=追加[b,1]];l=长度[b]+1];l=长度[b]+1;k=1;k=1;当[k<l,c=追加[c,从数字[b[[k]]]]]]]]中,b,从数字[b[[k[[k]]]]]开始;k++];计数[PrimeQ[Union[c]],True]];表[f[n],{n,1105}]

Table[Count[Union[FromDigits/@(展平[Permutations/@Subsets[IntegerDigits[n]],1]),\?PrimeQ],{n,110}](*哈维·P·戴尔2017年11月29日*)

黄体脂酮素

(平价)A039993号(n) ={my(S=[],D=vecsort(digits(n));对于(i=1,2^#D-1,forperm(vecextract(D,i),p,isprime(fromdigits(Vec(p))))| | next;S=setunion(S,[fromdigits(Vec(p))));35; S}\\n为了避免重复扫描相同的数字子集,当二进制模式…10。。。检测到。-M、 哈斯勒2014年3月8日,2019年10月15日简化

蟒蛇

从itertools导入排列

从sympy import isprime

定义a(n):

l=列表(str(n))

L=[]

对于范围内的i(len(l)):

L+=[int(“.join(x)),对于置换中的x(L,i+1)]

return len([i代表集合(L)中的i,如果是isprime(i)])

打印([a(n)表示范围(1101)内的n)#印度教2017年6月25日

交叉引用

不同于A075053型. 有关记录,请参见A072857号,A076497号. 另请参见A134596号,A134597年.

囊性纤维变性。A039999.

上下文顺序:A325669型 A332488 A068153号*A075053型 A328516飞机 A328517飞机

相邻序列:A039990型 A039991号 A039992号*A039994号 A039995年 A039996号

关键字

,基础

作者

大卫·W·威尔逊

扩展

编辑罗伯特·G·威尔逊五世2002年11月25日

Keith link修复者查尔斯R格雷特豪斯四世2009年8月13日

状态

经核准的

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

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

上次修改时间:2020年9月21日04:58。包含337267个序列。(运行在oeis4上。)