A375673 -id:A375673 - cp's OEIS frontend

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

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, 15, 14, 9, 18, 17, 13, 10, 20, 12, 21, 11, 15, 21, 23, 12, 21, 15, 17, 13, 26, 18, 15, 14, 19, 27, 29, 15, 30, 29, 18, 16, 20, 22, 33, 17, 23, 21, 35, 18, 36, 35, 25, 19

Offset: 3

Paolo Xausa, Aug 25 2024

nonn

Paolo Xausa, Table of n, a(n) for n = 3..1000

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

Cf. A262767, A329402, A306841.

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

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

A375675 a(n) is the area of the rectangle whose edges are n and A375673(n).

Original entry on oeis.org

18, 16, 100, 72, 294, 64, 162, 150, 1210, 144, 2028, 490, 450, 256, 4624, 648, 6498, 400, 588, 2178, 11638, 576, 2500, 3718, 1458, 784, 23548, 1350, 28830, 1024, 2178, 8670, 4900, 1296, 49284, 12274, 3042, 1600, 67240, 2352, 77658, 1936, 4050, 22218, 101614, 2304, 14406

Offset: 3

Paolo Xausa, Aug 25 2024

nonn

Paolo Xausa, Table of n, a(n) for n = 3..1000

Cf. A375673 (edges), A375674 (area/perimeter), A375676 (perimeter).

Cf. A262767, A329402, A306841.

A375675[n_] := Module[{b, r}, SolveValues[2*r == n*b/(n+b) && b >= n, {b, r}, Integers, MaxRoots -> 1][[1,1]]*n];
Array[A375675, 100, 3]

a(n) = n*A375673(n).

a(n) = A375674(n)*A375676(n).

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

Original entry on oeis.org

18, 16, 50, 36, 98, 32, 54, 50, 242, 48, 338, 98, 90, 64, 578, 108, 722, 80, 98, 242, 1058, 96, 250, 338, 162, 112, 1682, 150, 1922, 128, 198, 578, 350, 144, 2738, 722, 234, 160, 3362, 196, 3698, 176, 270, 1058, 4418, 192, 686, 250, 306, 208, 5618, 324, 242, 224, 342

Offset: 3

Paolo Xausa, Aug 25 2024

nonn

Paolo Xausa, Table of n, a(n) for n = 3..1000

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

Cf. A262767, A329402, A306841.

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

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

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

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A375675 a(n) is the area of the rectangle whose edges are n and A375673(n).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula