A095228 n-th decimal digit of 1/n!.

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

Offset

0,4

Comments

Since n! grows faster than 10^n, eventually the entries become 0. This occurs at a(25).

Links

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

Example

a(7) = 4, 1/7! = 1/5040 = 0.0001984126984126984126984126984127... and the seventh digit after the decimal point is 4.

Mathematica

f[n_] := Block[{d = RealDigits[1/n!, 10, 155]}, e = d[[2]]; If[ Max[1, n] > -e, d[[1, Max[1, n] + e]], 0]]; Table[ f[n], {n, 0, 104}] (* Robert G. Wilson v, Jun 12 2004 *)

Crossrefs

Cf. A086824.

Sequence in context: A202068 A301974 A088454 * A021605 A180573 A143937

Adjacent sequences: A095225 A095226 A095227 * A095229 A095230 A095231

Keyword

base,easy,nonn

Author

Amarnath Murthy, Jun 11 2004

Extensions

Edited, corrected and extended by Robert G. Wilson v, Jun 12 2004

Status

approved