登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志

请做一个捐款保持OEIS运行。我们现在已经第五十五岁了。在过去的一年里,我们增加了12000个新的序列,达到了8000个。引文(常说“感谢OEIS”)。我们需要筹集资金雇人管理提交,这将减少我们编辑的负担,加快编辑。
其他方式捐赠

提示
问候整数序列的在线百科全书!)
A0399 n中嵌入不同素数的数目。 十七
0, 1, 1、0, 1, 0、1, 0, 0、0, 1, 1、3, 1, 1、1, 3, 0、1, 1, 1、1, 3, 1、2, 1, 2、1, 2, 1、3, 3, 1、2, 3, 1、3, 3, 1、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、γ 列表图表参考文献历史文本内部格式
抵消

1,13

评论

一个(n)计数(不同)置换的n个数字序列,表示素数。

链接

诺伊,n,a(n)n=1…10000的表

C. K. Caldwell,主要词汇,原始数

J. P. Delahaye,素数猎人,1379是非常原始的(法语)[断线]

M. Keith包含许多嵌入素数的整数

W. Schneider原始数

G. Villemin的数字历书,Mike Keith原始数(法语)

例子

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

Mathematica

〔1〕,B=C={},k=1,L },L=长度[a]+1;而[k],b=附属物[A[[[k] ] ];k++];b=联合[平坦[b,1 ] ];L=长度[b]+1;k=1;而[k,l,c=附加[c,OfDigi[b[[k] ] ];k[Primeq [联[c],真] ];表[f[n],{n,1, 105 }]需要[ [ DouthMaTy]组合器'];f[n]:=块[{a=下拉[排序]子集[整数数字] [n]

表[UNIT[OFDIGITS/@ ](扁率[置换/ @子集[整数1 ] ],]Primeq,{n,110 }(*)哈维·P·戴尔11月29日2017*)

黄体脂酮素

(帕里)A0399(n)={i(s=[],d=veCo排序(数字(n)));(i=1, 2 ^×d-1,FopPm(VCeEx萃(d,i)),p,iSpple(FuxDiges(Vec(p)));s=SETIONG(S,[FRODIGITS(Vec(P))]);避免两个数字的相同子集的重复扫描,当二进制模式…10时,可以跳过索引I的相应范围。检测到。-哈斯勒,MAR 08 2014,简化10月15日2019

(蟒蛇)

从迭代工具导入排列

从症状输入为素数

DEFA(n):

L=列表(STR(n))

[L]

对于i in Read(LeN(L)):列表中的X(置换(L,I+1))的L+= [INT(“.]”(x))]

返回LeN(list(filter)(lambda i:iSpple(i),list(set)(L))

[a(n)n(范围)(1, 101)]的打印英德拉尼尔-豪什6月25日2017

交叉裁判

不同于A075053. 有关记录见A07857A07697. 也见A13496A13497.

囊性纤维变性。A0399.

语境中的顺序:A329 210 A325699 A068 153*A075053 A000 7362 A214709

相邻序列:A0399 90 A03991 A03992*A0399 A0399 95 A03996

关键词

诺恩基地改变

作者

戴维·W·威尔逊

扩展

被编辑Robert G. Wilson五世11月25日2002

基思链接修复查尔斯8月13日2009

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改了12月7日23时59分EST 2019。包含329850个序列。(在OEIS4上运行)