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 A375676 #16 Aug 26 2024 06:07:59 %S A375676 18,16,50,36,98,32,54,50,242,48,338,98,90,64,578,108,722,80,98,242, %T A375676 1058,96,250,338,162,112,1682,150,1922,128,198,578,350,144,2738,722, %U A375676 234,160,3362,196,3698,176,270,1058,4418,192,686,250,306,208,5618,324,242,224,342 %N A375676 a(n) is the perimeter of the rectangle whose edges are n and A375673(n). %H A375676 Paolo Xausa, <a href="/A375676/b375676.txt">Table of n, a(n) for n = 3..1000</a> %F A375676 a(n) = 2*(n + A375673(n)). %F A375676 a(n) = A375675(n)/A375674(n). %t A375676 A375676[n_] := Module[{b, r}, 2*(SolveValues[2*r == n*b/(n+b) && b >= n, {b, r}, Integers, MaxRoots -> 1][[1,1]] + n)]; %t A375676 Array[A375676, 100, 3] %Y A375676 Cf. A375673 (edges), A375674 (area/perimeter) A375675 (area). %Y A375676 Cf. A262767, A329402, A306841. %K A375676 nonn %O A375676 3,1 %A A375676 _Paolo Xausa_, Aug 25 2024