%I#4 2014年3月12日16:36:51

%S 3,3,0,4,3,16,15,35,34,62,98142141193192252319396478571，

%电话67066977710171016114811471288128712717541753192521052292，

%电话：24882692290329023122334935863828408140804340488354585457

%基于模12亏格和模6亏格函数的复素数亏格函数的N平方结果。

%Fg[1]=1；g[2]=1；g[n]：=（素数[n]-13）/12/；Mod[素数[n]，12]-1==0 g[n]：=（素数[n]-5）/12/；Mod[素数[n]，12]-5==0 g[n]：=（素数[n]-7）/12/；Mod[素数[n]，12]-7==0 g[n]：=（素数[n]+1）/12/；Mod[Prime[n]，12]-11==0 h[1]=1；h[2]=1；h[n_]：=（质数[n]）/6/；Mod[素数[n]，6]==0 h[n]：=（素数[n]-1）/6/；Mod[Prime[n]，6]-1==0 h[n]：=（Prime[n]-2）/6/；Mod[素数[n]，6]-2==0 h[n]：=（素数[n]-3）/6/；Mod[素数[n]，6]-3==0 h[n]：=（素数[n]-4）/6/；Mod[素数[n]，6]-4==0 h[n]：=（素数[n]-5）/6/；Mod[Prime[n]，6]-5==0 c[n_]=Sqrt[2]*（h[n]-Sqrt[g[n]-h[n]^2]/Sqrt[2]）cstar[n_]=共轭[c[n]]a（n）=c[n]*cstar[n]

%t g[1]=1；g[2]=1；g[n]：=（素数[n]-13）/12/；Mod[素数[n]，12]-1==0 g[n]：=（素数[n]-5）/12/；Mod[素数[n]，12]-5==0 g[n]：=（素数[n]-7）/12/；Mod[素数[n]，12]-7==0 g[n]：=（素数[n]+1）/12/；Mod[Prime[n]，12]-11==0 h[1]=1；h[2]=1；h[n_]：=（质数[n]）/6/；Mod[素数[n]，6]==0 h[n]：=（素数[n]-1）/6/；Mod[素数[n]，6]-1==0 h[n]：=（素数[n]-2）/6/；Mod[素数[n]，6]-2==0 h[n]：=（素数[n]-3）/6/；Mod[素数[n]，6]-3==0 h[n]：=（素数[n]-4）/6/；Mod[素数[n]，6]-4==0 h[n]：=（素数[n]-5）/6/；Mod[Prime[n]，6]-5==0 c[n_]=Sqrt[2]*（h[n]-Sqrt[g[n]-h[n]^2]/Sqrt[2]）cstar[n_]=共轭[c[n]]a=表[ExpandAll[c[n]*cstar[n]，{n，1,50}]

%K nonn，未编辑，obsc

%0、1

%A _Roger L.Bagula，2006年3月21日