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
Examples
a(7) = 4, 1/7! = 1/5040 = 0.0001984126984126984126984126984127... and the seventh digit after the decimal point is 4.
Crossrefs
Cf. A086824.
Programs
-
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 *)
Extensions
Edited, corrected and extended by Robert G. Wilson v, Jun 12 2004
Comments