A065952 Numerator of (-1)^n*n!*(E(n,2)-E(n,1)*E(n-1,1)) where E(n,x) = Sum_{k=0..n} (-1)^k*x^k/k!.

1, 1, 2, 3, 5, 17, 89, 211, 1903, 62473, 89393, 1324937, 199986173, 1248315547, 25821989299, 1754517215113, 1308752009069, 34794177047129, 32791050165840089, 37082480057069939, 109598046569166901, 7850794626671440751, 1049848025022301180127, 47709314255406993620857

Offset

0,3

Links

Table of n, a(n) for n=0..23.

Example

1, 1, 2, 3, 5, 17/2, 89/6, 211/8, 1903/40, 62473/720, ...

Maple

E := proc(n, x) add((-1)^k*x^k/k!, k=0..n); end; f := n -> (-1)^n*n!*(E(n, 2)-E(n, 1)*E(n-1, 1));

Mathematica

e[n_, x_]:=Sum[(-x)^k/k!, {k, 0, n}]; a[n_]:=Numerator[(-1)^n*n!*(e[n, 2]-e[n, 1]e[n-1, 1])]; Array[a, 24, 0] (* Stefano Spezia, Apr 12 2024 *)

Crossrefs

Cf. A065953 (denominator), A065954, A065955, A065956.

Sequence in context: A268209 A245641 A082979 * A308316 A089983 A370606

Adjacent sequences: A065949 A065950 A065951 * A065953 A065954 A065955

Keyword

nonn,frac

Author

N. J. A. Sloane, Dec 08 2001

Extensions

a(0)=1 prepended by and a(23) from Stefano Spezia, Apr 12 2024

Status

approved