搜索： 编号：a242748
|
| |
|
|
A242748型
|
| 用0<k<=m写出n=k+m，从而使k是本原根模素数（k），m是本原根模素数。 |
|
+0
11
|
|
|
|
0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 3, 3, 3, 1, 3, 3, 2, 2, 3, 3, 2, 1, 2, 3, 3, 2, 3, 3, 3, 3, 1, 2, 3, 3, 3, 2, 1, 4, 2, 3, 3, 3, 3, 2, 5, 3, 4, 2, 4, 6, 6, 1, 5, 4, 6, 7, 4, 6, 4, 6, 3, 6, 3, 7, 5, 5, 6, 7, 4, 6, 8, 5, 6, 4, 6, 4, 8, 3, 7
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,4
|
|
|
评论
|
猜想：对于所有n>1，a（n）>0。
这意味着有无穷多个正整数k，它是一个本原根模素数（k）。
|
|
|
链接
|
|
|
|
例子
|
a（6）=1，因为6=3+3带有3个本原根模素数（3）=5。
a（7）=1，因为7=1+6，1是本原根模素数（1）=2，6是本原根模素数。
a（15）=1，因为15=2+13，其中2为本原根模素数（2）=3，13为本原根模素数。
a（38）=1，因为38=10+28，其中10是本原根模素（10）=29，28是本原根模素（28）=107。
a（53）=1，因为53=3+50，其中3为本原根模素（3）=5，50为本原根模素（50）=229。
|
|
|
数学
|
dv[n_]：=除数[n]
Do[m=0；Do[Do[If[Mod[k^（部分[dv[Prime[k]-1]，i]），素数[k]==1，转到[aa]]，{i，1，长度[dv[Prime[k]-1]]-1}]；Do[If[Mod[（n-k）^（Part[dv[Prime[n-k]-1]，j]），Prime[n-k]]==1，Goto[aa]]，{j，1，Length[dv[Prime[n-k]-1]]-1}]；m=m+1；标签[aa]；继续，{k，1，n/2}]；打印[n，“”，m]；继续，｛n，1，80｝]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.006秒内完成
|
