A237594-OEIS公司

A237594型

素数p<prime（n）/2，使得Bell数B（p）是一个本原根模素数（n）。

三

0, 0, 1, 1, 2, 1, 2, 3, 1, 1, 2, 4, 2, 4, 6, 5, 7, 3, 4, 3, 4, 2, 12, 7, 3, 5, 4, 9, 5, 6, 4, 5, 12, 6, 7, 5, 9, 6, 12, 11, 13, 7, 7, 7, 14, 5, 5, 14, 14, 8, 13, 11, 7, 10, 19, 17, 16, 8, 11, 7, 7, 23, 11, 12, 10, 22, 14, 8, 22, 11, 20, 22, 13, 13, 15, 24, 27, 14, 18, 18 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,5`
	评论	`猜想：对于所有n>2，a（n）>0。换句话说，对于任何素数p>3，都存在一个素数q<p/2，使得贝尔数B（q）是一个本原根模p。`
	链接	`孙志伟，n=1..500时的n，a（n）表` `Z.-W.孙，模素数本原根的新观察，arXiv预印本arXiv:1405.0290[math.NT]，2014。`
	例子	`a（9）=1，因为3是一个比素数（9）/2=23/2小的素数，而B（3）=5是一个本原根模素数（8）=23。`
	数学	`f[k_]：=BellB[质数[k]]` `dv[n_]：=除数[n]` `Do[m=0；Do[If[Mod[f[k]，Prime[n]]==0，Goto[aa]，Do[In[Mod[f[k]^（Part[dv[Prime[n]-1]，i]），Prime[n]]==1，Goto[aa]]，{i，1，Length[dv[Prime[n-1]]-1}]；m=m+1；标签[aa]；继续，{k，1，PrimePi[（Prime[n]-1）/2]}]；打印[n，“”，m]；继续，{n，1，80}]`
	交叉参考	`囊性纤维变性。A000040美元,A000110号,A236308型,A236966号,A237112号,A237121号.` `上下文中的序列：A348245型 2015年2月26日 A162319号A098666号 A362890型 A306251型` `相邻序列：A237591型 A237592型 A237593型237595加元 A237596型 A237597型`
	关键词	`非n`
	作者	`孙志伟2014年4月22日`
	状态	`经核准的`

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

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

最后修改时间：美国东部时间2024年4月19日23:15。包含371798个序列。（在oeis4上运行。）