%I
%S 1,6,3,4,0,4,5,4,6,5,2,0,4,3,6,4,4,2,4,8,6,8,1,4,0,7,0,9,7,6,0,7,4,5,
%T 0,9,4,1,1,7,3,8,6,8,8,2,7,9,3,5,1,6,3,5,9,1,6,5,7,1,8,3,3,1,8,8,5,3,
%U 0,7,5,7,2,3,8,6,3,8,5,3,7,2,9,7,0,6,7,5,9,6,5,0,0,9,6,7,7,0,8,4,0,3,0,2,4,9,1,5,0,8,9,4,0,6,7,3,0,6,9,7,5,6,1,1,3,6,4,4,6,0
%N Decimal expansion of Pi  sqrt(Pi^2  1).
%C Decimal expansion of the shape (= length/width = Pi  sqrt(1+Pi^2)) of the lesser 2*Picontraction rectangle.
%C See A188738 for an introduction to lesser and greater rcontraction rectangles, their shapes, and partitioning these rectangles into a sets of squares in a manner that matches the continued fractions of their shapes.
%H G. C. Greubel, <a href="/A189088/b189088.txt">Table of n, a(n) for n = 0..5000</a>
%e 0.1634045465204364424868140709760745094117386882...
%t r = 2*Pi; t = (r  (4 + r^2)^(1/2))/2; FullSimplify[t]
%t N[t, 130]
%t RealDigits[N[t, 130]][[1]] (* A189088 *)
%t ContinuedFraction[t, 120]
%t RealDigits[PiSqrt[Pi^21],10,150][[1]] (* _Harvey P. Dale_, Sep 25 2016 *)
%o (PARI) Pi*(1sqrt(11/Pi^2)) \\ _Charles R Greathouse IV_, May 07, 2011
%Y Cf. A188738, A189089, A189090.
%K nonn,easy,cons
%O 0,2
%A _Clark Kimberling_, Apr 16 2011
