OFFSET
0,3
LINKS
David A. Corneth, Table of n, a(n) for n = 0..9999
EXAMPLE
a(10) = 6 as 10! = 6106640_14 which has leading digit 6. - David A. Corneth, Jan 15 2021
MATHEMATICA
f[n_]:=First[IntegerDigits[n!, 14]]; lst={}; Do[AppendTo[lst, f[n]], {n, 0, 2*5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)
Table[IntegerDigits[n!, 14][[1]], {n, 0, 100}] (* Harvey P. Dale, Dec 24 2015 *)
PROG
(PARI) a(n) = digits(n!, 14)[1]; \\ Michel Marcus, Jan 27 2015
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Carl R. White, Jan 21 2008
STATUS
approved