%I A102817
%S A102817 2,1,7,9,9,9,9,7,6,4,4,9,9,9,8,8,1,4,6,8,6,2,8,8,1,3,9,5,7,7,9,3,6,0,9,
%T A102817 8,9,0,7,2,6,7,9,7,8,9,0,9,7,3,0,0,5,6,5,4,8,3,2,8,8,5,2,1,2,2,4,0,4,2,
%U A102817 3,7,7,2,0,9,6,4,2,6,1,4,9,8,3,9,2,3,1,1,2,6,8,1,5,0,7,1,6,5,3,3,0,8,6
%N A102817 Decimal expansion of Gamma(delta)^2 where delta is the Feigenbaum bifurcation 
               velocity constant (A006890).
%C A102817 Let x be this constant, then the Integral_{1...x} sin(t)/sqrt(t) dt = 
               .655555692248871113068...
%C A102817 delta^2 = 21.8014436664499573..., (delta/Gamma(delta))^2 = .10000663312663433933000349...
%C A102817 If s is solution of Gamma(s) - sqrt(218) = 0 then 1/((s - delta)*Gamma(delta)^6) 
               = 2.5555951358396... whereas a^(Pi/4) = 2.055596478435... where a 
               is Feigenbaum alpha constant (A006891), the difference = 0.4999986574... 
               ~ 1/(2 + 10^-5.27)
%C A102817 10*cos(Gamma(delta)^2) + Pi = -0.199999019922688714710053...
%H A102817 <a href="http://pi.lacim.uqam.ca/piDATA/feigenbaum.txt">Feigenbaum constants 
               to 1018 decimal places</a>
%e A102817 217.99997644999881468628813957793609890726797890973...
%t A102817 Set delta then RealDigits[Gamma[delta]^2, 10, 110][[1]]
%Y A102817 Cf. A006890, A006891.
%Y A102817 Cf. A006891.
%Y A102817 Sequence in context: A144749 A021463 A141513 this_sequence A026252 A032298 
               A032210
%Y A102817 Adjacent sequences: A102814 A102815 A102816 this_sequence A102818 A102819 
               A102820
%K A102817 cons,nonn
%O A102817 3,1
%A A102817 Gerald McGarvey (gerald.mcgarvey(AT)comcast.net), Feb 26 2005