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 A073890 #18 Dec 20 2017 04:29:23 %S A073890 1,2,3,2,5,3,7,4,3,10,11,4,13,14,5,4,17,9,19,5,21,11,23,6,5,26,27,28, %T A073890 29,6,31,32,33,34,7,6,37,19,13,20,41,7,43,22,15,23,47,8,7,50,51,52,53, %U A073890 54,55,8,57,58,59,60,61,62,9,8,65,33,67,17,69,35,71,9,73,37,75,19,77 %N A073890 Numerator of n/floor(sqrt(n)). %C A073890 Denominator is A075119(n). %H A073890 Reinhard Zumkeller, <a href="/A073890/b073890.txt">Table of n, a(n) for n = 1..10000</a> %F A073890 a(n) = n/A067815(n). %o A073890 (Haskell) %o A073890 import Data.Ratio ((%), numerator) %o A073890 a073890 n = numerator $ n % a000196 n %o A073890 -- _Reinhard Zumkeller_, Jul 08 2014 %o A073890 (PARI) a(n) = numerator(n/sqrtint(n)); \\ _Michel Marcus_, Dec 19 2017 %Y A073890 Cf. A000196, A067815, A075119 (denominator). %K A073890 nonn,frac,look %O A073890 1,2 %A A073890 _Reinhard Zumkeller_, Sep 03 2002 %E A073890 Denominator reference fixed by _Reinhard Zumkeller_, Jul 08 2014