%I#33 2022年9月8日08:45:44

%S 0,0,1,0,3,4,2,6,6,7,6,9,9,14,6,12,12,13,12,15,16,16,18,18,21,18，

%电话：21,30,22,16,32,24,32,27,37,38,38,30,42,31,30,48,33,34,36,36,50，

%U 36,39,45,50,40,56,42,43,60

%N重量为5/2、水平为4*N和平凡特征的尖点形式的空间维数。

%H G.C.Greubel，n表，n=1..10000的a（n）</a>

%H H.Cohen和J.Oestere，<a href=“http://dx.doi.org/10.1007/BFb0065297“>Dimensions des espaces de formes modularies，一元模函数。VI，Proc.1976 Bonn conf.，Lect.Notes in Math.627，Springer-Verlag，1977，pp.69-78。

%H S.R.Finch，《原始尖牙形态》，2009年4月27日。[经作者许可，缓存副本]

%t dedekindPsi[n_Integer]：=n*倍@@（1+1/First/@FactorInteger[n]）；

%t\[Chi][n_Integer]：=和[EulerPhi[GCD[d，n/d]]，{d，除数[n]}]；

%t r[（p_）？PrimeQ，n_Integer]：=-1+Last[Flatten[Cases[FactorInteger[p*n]，{p，_}]]；

%t\[Alpha][n_Integer]：=块[{rn}，rn=r[2，n]；如果[EvenQ[rn]，3*2^（rn/2-1），2^[rn/2+1/2）]]；

%t\[Beta][n_Integer]：=块[{rn}，rn=r[2，n]；其中[rn>=4，\[Alpha][n]，rn===3，3，rn===2&&或@@OddQ[（r[#1，n]&）/@选择[First/@FactorInteger[n]、Mod[#1、4]==3&]]、2、True、3/2]；

%t s[5/2，n_Integer]：=（1/8）*dedekindPsi[n]-\[Beta][n]*（\[Chi][n]/\[Alpha][n]）；

%t s[5/2，#]&/@Range[4，240，4]（*外部Meeussen，参考Finch参考，2014年3月31日*）

%o（Magma）[[4*n，维度（尖子空间（半积分权重形式（4*n，5/2）））]：n在[1..75]]中

%Y参考A159630、A159634。

%K nonn公司

%O 1.5

%A _斯蒂芬芬奇，2009年4月17日