|
%I #7 Jan 19 2017 01:49:03
%S 1111,1226,2031,2335,2362,2602,2986,3129,3246,3379,3585,3598,3599,
%T 3722,3782,3966,4097,4321,4334,4359,4555,4582,4586,4843,4865,4867,
%U 5071,5611,5615,5630,5631,5777,6071,6078,6085,6087,6202,6239,6294,6395,6574,6854,6891
%N Numbers n such that Q(sqrt(n)) has class number 10.
%H Charles R Greathouse IV, <a href="/A218042/b218042.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ClassNumber.html">Class Number</a>
%t Select[Range[6891], SquareFreeQ[#] && NumberFieldClassNumber@Sqrt[#] == 10 &]
%o (PARI) is(n)=issquarefree(n) && qfbclassno(if(n%4>1,4,1)*n)==10 \\ _Charles R Greathouse IV_, Jan 19 2017
%Y Cf. A003172, A029702-A029705, A218038-A218041.
%K nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Oct 19 2012
|
