|
%I #7 Jan 19 2017 01:47:13
%S 235,346,427,506,574,697,785,786,842,874,894,895,898,899,906,985,1086,
%T 1191,1211,1339,1342,1345,1406,1527,1546,1639,1735,1758,1765,1851,
%U 1866,1882,1937,1954,2118,2230,2233,2263,2298,2495,2505,2510,2554,2666,2678,2726
%N Numbers n such that Q(sqrt(n)) has class number 6.
%H Charles R Greathouse IV, <a href="/A218038/b218038.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[2726], SquareFreeQ[#] && NumberFieldClassNumber@Sqrt[#] == 6 &]
%o (PARI) is(n)=issquarefree(n) && qfbclassno(if(n%4>1,4,1)*n)==6 \\ _Charles R Greathouse IV_, Jan 19 2017
%Y Cf. A003172, A029702-A029705, A218039-A218042.
%K nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Oct 19 2012
|
