A137986 Decimal expansion of the number whose Pierce expansion has the sequence of factorial numbers (A000142) as coefficients.

4, 2, 0, 1, 0, 9, 9, 9, 3, 8, 8, 3, 4, 8, 7, 3, 4, 1, 7, 6, 1, 6, 5, 4, 5, 3, 7, 9, 4, 0, 0, 0, 9, 0, 3, 5, 9, 2, 8, 9, 1, 1, 2, 4, 7, 2, 1, 8, 6, 2, 5, 2, 4, 2, 0, 7, 4, 4, 5, 2, 5, 0, 5, 2, 5, 3, 8, 3, 5, 1, 0, 1, 5, 3, 7, 8, 1, 3, 5, 8, 7, 7, 5, 6, 1, 5, 3, 4, 7, 1, 0, 3, 5, 8, 4, 1, 9, 4, 5

Offset

0,1

Links

G. C. Greubel, Table of n, a(n) for n = 0..5000

Eric W. Weisstein, Pierce Expansion.

Eric W. Weisstein, Engel Expansion.

Maple

P:=proc(n) local a, i, k; a:=0; k:=1; for i from 0 by 1 to n do k:=k*i!; a:=a+(-1)^i/k; print(evalf(a, 100)); od; end: P(100);

Mathematica

RealDigits[N[(Sum[(-1)^n*Product[1/((k - 1)!), {k, 1, n}], {n, 1, 250}]), 100]][[1]] (* G. C. Greubel, Jan 01 2017 *)

Crossrefs

Cf. A000142, A137987, A137988, A137989.

Sequence in context: A363436 A277767 A107088 * A330768 A093486 A259618

Adjacent sequences: A137983 A137984 A137985 * A137987 A137988 A137989

Keyword

easy,nonn,cons

Author

Paolo P. Lava and Giorgio Balzarotti, Feb 26 2008

Status

approved