|
%I #12 Mar 12 2017 12:27:40
%S 1,3,5,19,7,109,331,155,2327,20947,34913,164591,691283,14977801,
%T 314533829,4718007451,1572669151,16041225341,103122162907,
%U 4571749222213,68576238333199,110777000384399,55582845806909,364345554264288511
%N Numerators in expansion of exp(2x)/(1-x).
%H G. C. Greubel, <a href="/A053484/b053484.txt">Table of n, a(n) for n = 0..400</a>
%F a(n) = Numerator[Sum[2^k/k!,{k,0,n}]]. - _Alexander Adamchuk_, Jul 22 2006
%t Numerator[Table[Sum[2^k/k!,{k,0,n}],{n,0,30}]] (* _Alexander Adamchuk_, Jul 22 2006 *)
%t Numerator[Accumulate[Table[2^n/n!,{n,0,30}]]] (* or *) Numerator[ CoefficientList[ Series[Exp[2x]/(1-x),{x,0,30}],x] ] (* _Harvey P. Dale_, Mar 12 2017 *)
%o (PARI) for(n=0,25, print1(numerator(sum(k=0,n, 2^k/k!)), ", ")) \\ _G. C. Greubel_, Jan 18 2017
%Y Cf. A053485, A010842.
%K nonn,frac
%O 0,2
%A _N. J. A. Sloane_, Jan 15 2000
|
