OFFSET
0,4
COMMENTS
Since n! grows faster than 10^n, eventually the entries become 0. This occurs at a(25).
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
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