%I #14 Jul 21 2022 18:39:39
%S 3,5,9,4,3,3,0,0,3,8,1,0,2,7,7,0,8,9,1,4,6,5,4,5,3,8,7,4,4,8,2,2,0,0,
%T 1,2,2,5,5,2,6,2,9,2,1,6,1,8,7,6,6,5,1,6,4,4,1,0,1,1,6,0,8,1,8,9,6,4,
%U 8,4,8,6,4,4,7,7,3,9,0,7,2,1,2,1,5,9,2,3,3,2,4,6,3,0,4,9,1,8,0,3,3,9,2,4,9,3,5,2,9,4,0,5,0,2,8,8,4,0,9,2,6,2,3,0,9,2,3,9,5,2
%N Decimal expansion of (Pi-sqrt(-4+Pi^2))/2.
%C Decimal expansion of the shape (= length/width = (Pi-sqrt(-4+Pi^2))/2) of the lesser pi-contraction rectangle.
%C See A188738 for an introduction to lesser and greater r-contraction rectangles, their shapes, and partitioning these rectangles into a sets of squares in a manner that matches the continued fractions of their shapes.
%F Equals A000796 - A189039. - _Alois P. Heinz_, Jul 21 2022
%e 0.3594330038102770891465453874482200...
%t r = Pi; t = (r - (-4 + r^2)^(1/2))/2; FullSimplify[t]
%t N[t, 130]
%t RealDigits[N[t, 130]][[1]]
%t ContinuedFraction[t, 120]
%Y Cf. A000796, A188738, A189039.
%K nonn,cons
%O 0,1
%A _Clark Kimberling_, Apr 15 2011
%E Offset corrected by _Alois P. Heinz_, Jul 21 2022
|