A375676 - OEIS

%I #16 Aug 26 2024 06:07:59

%S 18,16,50,36,98,32,54,50,242,48,338,98,90,64,578,108,722,80,98,242,

%T 1058,96,250,338,162,112,1682,150,1922,128,198,578,350,144,2738,722,

%U 234,160,3362,196,3698,176,270,1058,4418,192,686,250,306,208,5618,324,242,224,342

%N a(n) is the perimeter of the rectangle whose edges are n and A375673(n).

%H Paolo Xausa, <a href="/A375676/b375676.txt">Table of n, a(n) for n = 3..1000</a>

%F a(n) = 2*(n + A375673(n)).

%F a(n) = A375675(n)/A375674(n).

%t A375676[n_] := Module[{b, r}, 2*(SolveValues[2*r == n*b/(n+b) && b >= n, {b, r}, Integers, MaxRoots -> 1][[1,1]] + n)];

%t Array[A375676, 100, 3]

%Y Cf. A375673 (edges), A375674 (area/perimeter) A375675 (area).

%Y Cf. A262767, A329402, A306841.

%K nonn

%O 3,1

%A _Paolo Xausa_, Aug 25 2024