OFFSET
1,2
COMMENTS
Greater side of integral rectangle with area n*(n+1)/2 having minimal semiperimeter.
MATHEMATICA
a[n_] := Select[Divisors[n*(n+1)/2], # >= Sqrt[n*(n+1)/2] &, 1][[1]]; Array[a, 100] (* Amiram Eldar, Aug 03 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 17 2002
STATUS
approved