|
%I #13 Apr 13 2017 08:29:43
%S 2,10,79,82,401,235,577,226,1129,1111,1297,730,4759,1534,9871,2305,
%T 7054,4954,15409,3601,7057,4762,23593,9634,24859,13321,8761,5626,
%U 49281,11665,97753,15130,55339,19882,25601,18226,24337,19834,41614,16899,55966,47959
%N Smallest squarefree integer k such that Q(sqrt(k)) has class number n.
%C What is known about the asymptotics of this sequence? - _Charles R Greathouse IV_, Jan 26 2017
%C Records: 2, 10, 79, 82, 401, 577, 1129, 1297, 4759, 9871, 15409, 23593, 24859, 49281, 97753, 106537, 159199, 197137, 212137, 239119, 245023, 444089, 589822, 614849, 815413, 837929, 943951, 1025494, 1224121, 1240369, 1333255, 1334026, ..., . - _Robert G. Wilson v_, Apr 12 2017
%H Robert G. Wilson v, <a href="/A081363/b081363.txt">Table of n, a(n) for n = 1..214</a>
%t t[_] := 0; k = 2; While[k < 56000, cn = NumberFieldClassNumber@Sqrt@k; If[ t[cn] == 0, t[cn] = k; Print[{cn, k}]]; k++]; t@# & /@ Range@ 42 (* _Robert G. Wilson v_, Apr 12 2017 *)
%o (PARI) v=vector(100); for(n=2,1e6, if(!issquarefree(n), next); t=qfbclassno(if(n%4>1,4*n,n)); if(t<=#v && v[t]==0, v[t]=n; print("a("t") = "n))) \\ _Charles R Greathouse IV_, Jan 26 2017
%Y Cf. A081319, A081364, A094619, A094612, A094613, A094614.
%Y Cf. A219361, A029702, A029703, A029704, A029705, A218038, A218039, A218040, A218041, A218042, A276541. - _Robert G. Wilson v_, Apr 12 2017
%K nonn
%O 1,1
%A _Dean Hickerson_, Mar 19 2003
%E More terms from _Max Alekseyev_, Apr 28 2010
|
