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 A256098 #16 Feb 15 2025 12:16:03 %S A256098 1,2,1,1,4,2,4,1,1,6,3,2,3,6,1,1,8,4,8,2,8,4,8,1,1,10,5,10,5,2,5,10,5, %T A256098 10,1,1,12,6,4,3,12,2,12,3,4,6,12,1,1,14,7,14,7,14,7,2,7,14,7,14,7,14, %U A256098 1,1,16,8,16,4,16,8,16,2,16,8,16,4,16,8,16,1 %N A256098 Denominators for the numerators A256097. %C A256098 The corresponding numerators are given in A256097. %C A256098 See A256097 for comments, references and links. %H A256098 Stefano Spezia, <a href="/A256098/b256098.txt">Table of n, a(n) for n = 1..10000</a> %F A256098 a(n) = denominator(R(n)), with the rational (in lowest terms) R(n) = f(n) + (n - f(n)^2)/(2*f(n)) = (f(n) + n/f(n))/2 with f(n) := floor(sqrt(n)) = A000196(n), for n >= 1. %e A256098 See A256097. %t A256098 A000196[n_]:=Floor[Sqrt[n]]; a[n_]:=Denominator[(A000196[n]+n/A000196[n])/2]; Array[a,80](* _Stefano Spezia_, Feb 15 2025 *) %Y A256098 Cf. A000196, A048760, A048761, A256097. %K A256098 nonn,easy,frac %O A256098 1,2 %A A256098 _Wolfdieter Lang_, Mar 24 2015 %E A256098 a(61)-a(80) from _Stefano Spezia_, Feb 15 2025