This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A072903 #16 Jun 24 2022 04:34:26 %S A072903 4,9,16,18,20,25,27,32,36,45,48,49,50,52,54,63,64,68,72,75,80,81,84, %T A072903 90,96,98,99,100,108,112,116,117,121,125,126,128,132,135,144,147,148, %U A072903 150,153,160,162,164,169,171,175,176,180,189,192,196,198,200,207,208,212 %N A072903 Numbers m such that the discriminant of the quadratic field Q(sqrt(m)) < m. %C A072903 Among terms are all the squares for which discriminant = 1. %H A072903 Amiram Eldar, <a href="/A072903/b072903.txt">Table of n, a(n) for n = 1..10000</a> %F A072903 a(n) appears to be asymptotic to C*n with C = 3.4... . %t A072903 Select[Range[220], NumberFieldDiscriminant[Sqrt[#]] < # &] (* _Amiram Eldar_, Jun 24 2022 *) %o A072903 (PARI) isok(m) = quaddisc(m) < m; \\ _Michel Marcus_, Feb 18 2021 %Y A072903 Cf. A037449, A072904. %K A072903 easy,nonn %O A072903 1,1 %A A072903 _Benoit Cloitre_, Aug 10 2002