OFFSET
0,3
LINKS
David A. Corneth, Table of n, a(n) for n = 0..9999 (first 1001 terms from Robert G. Wilson v)
EXAMPLE
For n=5, 5! = 5*4*3*2*1 = 120 in base 10, which is 78 in hexadecimal (7*16 + 8*1), so a(5) = 7. - Michael B. Porter, Sep 20 2016
MATHEMATICA
Array[ IntegerDigits[#!, 16][[1]] &, 1001, 0] (* Robert G. Wilson v, Sep 20 2016 *)
Table[Floor[#/16^Floor@ Log[16, #]] &[n!], {n, 0, 98}] (* Michael De Vlieger, Sep 20 2016 *)
PROG
(PARI) a(n) = digits(n!, 16)[1]; \\ Michel Marcus, Jan 27 2015
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Carl R. White, Jan 21 2008
STATUS
approved