%I M3776#80 2022年1月21日00:08:07

%S 1,5,8,12,13,17,21,24,28,29,33,37,40,41,44,53,56,57,60,61,65,69,73,76，

%电话77,85,88,89,92,93,97101104105109113120124129133136137140，

%U 141145149152156157161165168172173177181184185188193197电话

%实二次域的N个基本判别式；原始正狄利克雷L序列的指数。

%C正基本判别式集合中的所有素数都是勾股素数（A002144）_Paul Muljadi_，2008年3月28日

%对于n>0，素数除数（带重数）的记录数为1、5和4*A002110（n）_Charles R Greathouse IV，2022年1月21日

%D Henri Cohen，《计算代数数论课程》，Springer，1993年，第515-519页。

%D M.Pohst和Zassenhaus，《算法代数数论》，剑桥大学出版社，1989年，第432页。

%D Paulo Ribenboim，《代数数》，纽约威利出版社，1972年，第97页。

%D N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。

%H Amiram Eldar，n表，n的a（n）=1..10000（T·D·Noe的术语1..3001）

%H Steven R.Finch，类数理论，2005年。[经作者许可，缓存副本]

%H Britta Habdank-Eichelsbacher，<a href=“http://sfb343.math.uni-bielefeld.de/sfb343/prepints/pre95005.ps.gz“>《Unimodulare Gitterüber Reell-Quadratischen Zahlkörpern》，埃尔甘斯雷伊95-005，比勒费尔德大学，1995年。见第4.2节。

%H Rick L.Shepherd，<a href=“http://libres.uncg.edu/ir/uncg/f/Shepherd_uncg_0154M_11099.pdf“>二元二次型和亏格理论，北卡罗来纳大学格林斯博罗分校文学硕士论文，2013年。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/DirichletL-Series.html“>Dirichlet L系列。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/FundamentalDiscriminant.html“>基本区别</a>。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/ClassNumber.html“>类别编号。

%F无平方数（如果不等于1，则乘以4（mod 4））。

%F a（n）~（Pi^2/3）*n。截至x.-Charles R Greathouse IV_，2022年1月21日，有（3/Pi^2）*x+O（sqrt（x））项

%t基本判别Q[d_]：=模块[{m，mod=mod[d，4]}，如果[mod>1，返回[False]]；如果[mod==1，则返回[SquareFreeQ[d]&&d！=1]]; m=d/4；返回[SquareFreeQ[m]&&Mod[m，4]>1]；]；加入[{1}，选择[Range[200]，fundamentalDiscriminantQ]]（*_Jean-François Alcover_，2011年11月2日，在_Eric W.Weisstein_*之后）

%t选择[范围[200]，NumberFieldDiscriminant@平方码[#]==#&]（*2014年4月2日，基于Arkadiusz Wesolowski的A094612*计划）

%t最大值=200；Drop[Select[Union[Table[Abs[MoebiusMu[n]]*n*4^Boole[Not[Mod[n，4]==1]]，{n，max}]]，#<max&]，1]（*_Alonso del Arte_2014年4月2日*）

%o（PARI）v=[]；对于（n=1500，如果（是基本的（n），v=concat（v，n））；v（v）

%o（PARI）列表（lim）=my（v=list（））；forsquarefree（n=1，lim\4，listput（v，if（n[1]%4==1，n[1]，4*n[1]））；forsquarefree（n=lim\4+1，lim\1，if（n[1]%4==1，listput（v，n[1]）））；集（v）\\_Charles R Greathouse IV_，2022年1月21日

%o（鼠尾草）

%o定义为基础（d）：

%o r=d%4

%o如果r>1：返回False

%o如果r==1：返回（d！=1）和is_squarefree（d）

%o q=d//4

%o返回is_squarefree（q）和（q%4>1）

%o[1]+[n代表n in（1..200）if is _fundamental（n）]#_Peter Luschny_，2018年10月15日

%Y参见A003652、A003657、A002144、A003646（分类号）、A014000、A014046、A086669、A232931、A290098。

%A039955和4*A230375的Y接头。

%不，简单，好

%O 1,2号机组

%A _N.J.A.Sloane，_Mira Bernstein，_Eric W.Weisstein_

%E更多术语摘自_Eric W.Weisstein和Jason Earls，2001年6月19日