提出
经核准的
编辑
囊性纤维变性。A000040型,A000720号,242750英镑,A242752型.
孙志伟，<a href=“/A242748型/b242748.txt“>n表，n=1..8000时为a（n）</a>
a（6）=1，因为6=3+3带有3个本原根模素数（3）=5。
囊性纤维变性。A000040型,A000720号,A242750型.
用0<k<=m写出n=k+m，从而使k是本原根模素数（k），m是本原根模素数。
猜想：对于所有n>1，a（n）>0。
这意味着有无穷多个正整数k，它是一个本原根模素数（k）。
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]
囊性纤维变性。A000040型.
分配给孙志伟
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个
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
孙志伟2014年5月21日
