cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A053484 Numerators in expansion of exp(2x)/(1-x).

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