%I #30 Oct 03 2022 18:24:18
%S 3,15,23,39,47,87,71,95,199,119,167,231,191,215,239,399,383,335,311,
%T 455,431,591,647,695,479,551,983,831,887,671,719,791,839,1079,1031,
%U 959,1487,1199,1439,1271,1151,1959,1847,1391,1319,2615,3023,1751,1511,1799
%N Smallest number k==3 (mod 4) such that Q(sqrt(-k)) has class number n, or 0 if no such k exists.
%C From _Jianing Song_, May 08 2021: (Start)
%C Conjecture 1: a(n) > 0 for all n;
%C Conjecture 2: a(n) = o(n^2). (End)
%C Conjecture: this is also the smallest absolute value of negative fundamental discriminant d for class number n. This is to say, for even n, if a(n) > 0 and A344072(n/2) > 0, then A344072(n/2) > a(n). - _Jianing Song_, Oct 03 2022
%H Jianing Song, <a href="/A060649/b060649.txt">Table of n, a(n) for n = 1..1162</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ClassNumber.html">Class Number</a>.
%t (* First do <<NumberTheory`NumberTheoryFunctions` *) a=Table[0, {50}]; Do[If[SquareFreeQ[n], c=ClassNumber[ -n]; If[c<=50&&a[[c]]==0, a[[c]]=n]], {n, 3, 3200, 4}]; a
%o (PARI) a(n) = my(d=3); while(!isfundamental(-d) || qfbclassno(-d)!=n, d+=4); d \\ _Jianing Song_, May 08 2021
%Y Cf. A002148, A081319, A344072, A038552.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Apr 17 2001
%E Edited by _Dean Hickerson_, Mar 17 2003
%E Escape clause added by _Jianing Song_, May 08 2021