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

Author

Amarnath Murthy, Jun 11 2004

Keywords

• base
• easy
• nonn

Comments

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

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