OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..400
FORMULA
a(n) = Numerator[Sum[2^k/k!,{k,0,n}]]. - Alexander Adamchuk, Jul 22 2006
MATHEMATICA
Numerator[Table[Sum[2^k/k!, {k, 0, n}], {n, 0, 30}]] (* Alexander Adamchuk, Jul 22 2006 *)
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 *)
PROG
(PARI) for(n=0, 25, print1(numerator(sum(k=0, n, 2^k/k!)), ", ")) \\ G. C. Greubel, Jan 18 2017
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
N. J. A. Sloane, Jan 15 2000
STATUS
approved