登录
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。K。考德威尔,主要词汇,原始数

J。P。德拉哈耶,初级猎人,1379非常原始(法语)

迈克·基思,包含许多嵌入素数的整数

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}。

数学

需要[“DiscreteMath`combinatica`”];f[n_u]:=块[{a=Drop[Sort[Subsets[IntegerDigits[n]]],1],b=c={},k=1,l},l=Length[a]+1;而[k<l,b=追加[b,置换[a[[k]]];k++];b=联合[展平[b,1]];l=长度[b]+1;k=1;而[k<l,c=Append[c,FromDigits[b[[k]]]];k++];Count[PrimeQ[Union[c]],真]];表[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(数字(n)));下一个数字(p-D)表示第124d个数字(p-D);S=setunion(S,[fromdigits(Vec(p))])))#S} \\为了避免重复扫描相同的数字子集,当二进制模式…10。。。检测到-M。F。哈斯勒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基金公司。

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

上次修改时间:2021年6月21日18:33。包含345365个序列(在oeis4上运行。)