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 A193180 #18 Jul 01 2023 15:50:22 %S A193180 2,1,5,8,5,6,1,2,2,6,1,1,5,1,8,2,0,1,1,8,1,4,9,7,1,0,5,7,1,6,2,7,8,3, %T A193180 0,3,2,9,7,7,4,0,9,9,4,8,6,4,4,6,5,1,7,2,4,4,4,0,3,0,9,4,4,9,5,8,7,1, %U A193180 6,9,0,4,3,0,1,6,5,7,3,5,8,7,8,5,3,0,5,5,7,5,3,8,7,2,4,9,5,9,1,1 %N A193180 Decimal expansion of the value of d that maximizes the expression (1+1/(1-d)+1/(1-2d))*(-1+1/(1-d)+1/(1-2d))*(1-1/(1-d)+1/(1-2d))*(1+1/(1-d)-1/(1-2d)) for d in the interval [-oo, 1/2] where 1/(1-d) and 1/(1-2d) are always positive. %C A193180 If the sides of a triangle form a harmonic progression in the ratio 1 : 1/(1-d) : 1/(1-2d) then when d = 0.2158561226... it uniquely maximizes the area of the triangle. This triangle has approximate internal angles of 33.956, 45.423 and 100.621 degrees. %e A193180 0.2158561226... %t A193180 NMaximize[{Sqrt[(1+1/(1-d)+1/(1-2d))(-1+1/(1-d)+1/(1-2d))(1-1/(1-d)+1/(1-2d))(1+1/(1-d)-1/(1-2d))]/4, 0<d<(25/100)}, d, AccuracyGoal->120, PrecisionGoal->100, WorkingPrecision->240] %K A193180 nonn,cons,easy %O A193180 0,1 %A A193180 _Frank M Jackson_, Jul 17 2011