|
%I M0054 #29 Jun 02 2017 12:31:57
%S 1,1,1,1,1,2,1,1,1,2,1,1,1,1,1,2,1,2,1,1,2,2,1,1,2,1,2,1,1,1,2,1,2,1,
%T 2,1,1,1,2,2,1,1,2,1,1,2,1,2,3,4,1,2,1,2,1,2,1,1,2,1,1,2,1,2,2,1,1,2,
%U 2,1,2,2,1,2,2,2,1,1,4,1,1,1,1,2,1,1,3,2,4,2,1,1,2,2,1,1,2,1,1,2,1,1,4,1,2
%N Class number of real quadratic field Q(sqrt f), where f is the n-th squarefree number A005117(n).
%D Şaban Alaca & Kenneth S. Williams, Introductory Algebraic Number Theory. Cambridge: Cambridge University Press (2004): 322-326, Theorem 12.6.1, Example 12.6.7, Table 8.
%D D. A. Buell, Binary Quadratic Forms. Springer-Verlag, NY, 1989, pp. 224-241.
%D M. Pohst and H. Zassenhaus, Algorithmic Algebraic Number Theory, Cambridge Univ. Press, 1989, p. 432.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H T. D. Noe, <a href="/A003649/b003649.txt">Table of n, a(n) for n = 2..6083</a> (squarefree numbers < 10000)
%H S. R. Finch, <a href="/A000924/a000924.pdf">Class number theory</a> [Cached copy, with permission of the author]
%H <a href="/index/Qua#quadfield">Index entries for sequences related to quadratic fields</a>
%t DeleteCases[Table[Boole[FreeQ[FactorInteger[n], {_, k_ /; k > 2}]] * NumberFieldClassNumber[Sqrt[n]], {n, 100}], 0] (* _Alonso del Arte_, Aug 26 2014 *)
%o (PARI) for(n=2,1e3,if(issquarefree(n),print1(qfbclassno(n*if(n%4>1, 4, 1))", "))) \\ _Charles R Greathouse IV_, Feb 19 2013
%Y Cf. A000924.
%K nonn
%O 2,6
%A _N. J. A. Sloane_ and _Mira Bernstein_
|
