login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(n) is the area/perimeter ratio of the rectangle whose edges are n and A375673(n).
4

%I #14 Aug 26 2024 09:54:10

%S 1,1,2,2,3,2,3,3,5,3,6,5,5,4,8,6,9,5,6,9,11,6,10,11,9,7,14,9,15,8,11,

%T 15,14,9,18,17,13,10,20,12,21,11,15,21,23,12,21,15,17,13,26,18,15,14,

%U 19,27,29,15,30,29,18,16,20,22,33,17,23,21,35,18,36,35,25,19

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

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

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

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

%t Array[A375674, 100, 3]

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

%Y Cf. A262767, A329402, A306841.

%K nonn

%O 3,3

%A _Paolo Xausa_, Aug 25 2024