%I #7 Oct 17 2014 05:24:19
%S 3,0,1,0,1,4,4,8,5,3,9,9,1,0,5,2,3,2,1,9,1,1,6,4,6,1,4,8,7,6,7,7,3,2,
%T 7,6,3,9,3,1,8,3,7,7,0,2,6,1,7,5,6,1,1,0,7,9,9,7,1,8,8,1,1,9,5,6,5,8,
%U 4,9,3,9,2,1,4,0,5,0,9,3,5,7,5,6,7,9
%N Decimal expansion of r = sum_{n >= 0} floor(2n/3)!/n!.
%H Clark Kimberling, <a href="/A248678/b248678.txt">Table of n, a(n) for n = 1..1000</a>
%F r = sum_{n >= 0} (9 n^2 + 14 n + 5) (2 n)!/(3 n + 2)!.
%e r = 3.0101448539910523219116461487677327...
%p evalf(sum(floor(2n/3)!/n!, n=0..infinity),120); # _Vaclav Kotesovec_, Oct 17 2014
%t x = N[Sum[Floor[2 n/3]!/n!, {n, 0, 200}], 120]
%t RealDigits[x][[1]] (* A248678 *)
%Y Cf. A248675, A248676, A248677.
%K nonn,easy,cons
%O 1,1
%A _Clark Kimberling_, Oct 11 2014
|