A091936-OEIS公司

A091936号

在2^n和2^（n+1）之间的最小素数，在二进制表示中具有最小数量的1。

2, 5, 11, 17, 37, 67, 131, 257, 521, 1033, 2053, 4099, 8209, 16417, 32771, 65537, 133121, 262147, 524353, 1048609, 2097169, 4194433, 8388617, 16777729, 33554467, 67239937, 134250497, 268435459, 536903681, 1073741827, 2147483713

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

A091935号（n）=A000120号（a（n））。

到目前为止，只有a（25）和a（32）在二进制表示中具有41。

链接

柴华武，n=1..1000时的n，a（n）表

数学

NextPrim[n_]：=块[{k=n+1}，While[！PrimeQ[k]，k++]；k] ；p=2；Do[c=无穷大；而[p<2^n，b=计数[IntegerDigits[p，2]，1]；如果[c>b，c=b；q=p]；p=NextPrim[p]；如果[c<4，p=NextPrim[2^n]；继续[]]]；打印[q]，{n，2，32}](*罗伯特·威尔逊v2004年2月18日*）

b[n_]：=最小值[Select[FromDigits[#，2]和/@（Join[{1}，#，{1}]和/@排列[Join[}}，Table[0，{n-2}]]），PrimeQ[#]&]]；c[n_]：=最小值[Select[FromDigits[#，2]和/@（Join[{1}，#，{1}]和/@Permutations[Join[{1,1}，Table[0，{n-3}]]），PrimeQ[#]&]]；f[n_]：=如果[PrimeQ[2^n+1]，2^n+1，如果[Prime Q[b[n]]，b[n]，c[n]]]；表[f[n]，{n，2，32}](*罗伯特·威尔逊v*)

黄体脂酮素

（Python）

从sympy导入isprime

从sympy.utilities.iterables导入multiset_permutations

定义A091936号（n）：

对于范围（n+1）内的i：

q=2**n

对于multiset_permutations（'0'*（n-i）+'1'*i）中的d：

p=q+int（''.join（d），2）

如果是质数（p）：

返回p#柴华武2020年4月8日

交叉参考

囊性纤维变性。A091938号,A019434号.

上下文中的序列：A133928号 A372197型 A126204号*A153145号 A174003号 A144572号

相邻序列：A091933号 A091934号 A091935号*A091937号 A091938号 A091939号

关键词

非n

作者

莱因哈德·祖姆凯勒2004年2月14日

扩展

更多术语来自罗伯特·威尔逊v2004年2月18日

状态

经核准的