%I#25 2018年11月3日12:15:01

%S 0,0,1,0,3,1,5,3,1,9,1,3,3,1,19,5,9,23,1,15,11,9,3,33,11,35,21,3，

%电话：3,5,45,3,49,5,1,3,23,1,59,9,63,27,65,11,3,75,45,1,79,21,35,1,89，

%U 5,39,93,21,9,3103,3,25,3115,69,1,39,19,1,75,29,3,3,1139,313,61387

%N a（N）=A118534（N）/A117078（N），除非A117078（N）=0，在这种情况下，a（N）=0。

%C a（n）是素数（n）的“水平”。

%C素数有一个唯一的分解：如果水平a（n）>0，我们有素数（n）=权重*水平+间隙，或A000040（n）=A117078（n）*a（n）+A001223（n）。

%C a（n）=0仅适用于素数2、3和7。

%C A118534（n）=素数（n）-g（n）或A000040（n）-A001223。

%H Remi Eismann，n的表，n的a（n）=1..10000</a>

%H雷米·艾斯曼，<a href=“http://reismann.free.fr/download/newAlgo.zip“>Java程序</a>将素数分解为weight*level+gap，或A117078（n）*A117563（n）+A001223（n））。

%H Rémi Eismann，<a href=“http://arXiv.org/abs/0711.0865“>分解为weight*level+jump并应用于素数的新分类，arXiv:0711.0865[math.NT]，2007-2010。

%e a（7）=15/3=5；a（14）=39/13=3；a（16）=47/47=1；a（18）=55/11=5；a（29）=105/5=11。

%ta34[n_]：=如果[n==1||n==2||n==4，0，2素数[n]-素数[n+1]]；

%ta78[n_]：=块[{a，p=素数[n]，np=素数[1]}，a=Min[Select[Divisors[2p-np]，#>np-p&]]；如果[a==无穷大，0，a]]；

%t a[n_]：=如果[a78[n]==0，0，a34[n]/a78[n]；

%t阵列[a，85]（*Jean-François Alcover_，2018年11月2日，在A118534中的_Robert G.Wilson v之后*）

%Y参考A117078、A118534。

%K非n

%O 1.5

%A Rémi Eismann，2006年4月29日，2008年2月14日

%E更多条款摘自Robert G.Wilson v_，2006年5月5日

%E编辑：N.J.A.Sloane，2006年5月14日