登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志


提示
问候整数序列的在线百科全书!)
A07697 与第n个原始数对应的素数A07857(n)。
0, 1, 3,4, 5, 7,11, 14, 19,21, 26, 29,31, 33, 35,41, 53, 55,60, 64, 89,96, 106, 122,153, 188, 248,311, 349, 402,421, 547, 705,812, 906, 1098,812, 906, 1098,γ,γ,γ,γ, 列表图表参考文献历史文本内部格式
抵消

1,3

链接

Giovanni Restan,a(n)n=1…100的表

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

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

G. Villemin的数字历书,诺姆布雷基思

维基百科原始数.

公式

A(n)=A0399A07857(n)。-哈斯勒3月12日2014

例子

A(3)=3,因为原始数A07857(3)=13可用于创建3素数,即3, 13和31。

A(6)=7,因为原始数A07857(7)=113可用于创建7个素数,即3, 11, 13、31, 113, 131和311。(两个素数13和31可以通过2种方式获得,因此A075053(113)=9)。

Mathematica

Needs["DiscreteMath`Combinatorica`"]; f[n_] := Block[{a = Drop[ Sort[ Subsets[ IntegerDigits[n]]], 1], b = c = {}, k = 1, l}, l = Length[a] + 1; While[k < l, b = Append[b, Permutations[ a[[k]] ]]; k++ ]; b = Union[ Flatten[b, 1]]; l = Length[b] + 1; k = 1; While[k < l, c = Append[c, FromDigits[ b[[k]] ]]; k++ ]; Count[ PrimeQ[ Union[c]], True]]; d = -1; Do[ b = f[n]; If[b > d, Print[b]; d = b], {n, 1, 10^6}]

交叉裁判

囊性纤维变性。A07857A07623A0767.

语境中的顺序:A101762 A13945 A095880*A137950 A330100 A3300 99

相邻序列:A0764 A0764 95 A0764 96*A0764 98 A0764 99 A076500

关键词

基地诺恩

作者

莱克拉吉贝达西08月11日2002

扩展

通过编辑和扩展Robert G. Wilson五世11月12日2002

固定链接查尔斯8月13日2009

A(40)-A(54)从乔凡尼瑞斯塔06月11日2013

地位

经核准的

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

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

最后修改了1月24日05:08 EST 2020。包含331183个序列。(在OEIS4上运行)