login
A136764
a(n) = leading digit of n! in base 14.
13
1, 1, 2, 6, 1, 8, 3, 1, 1, 9, 6, 5, 4, 4, 4, 4, 5, 6, 8, 10, 1, 1, 2, 4, 7, 13, 1, 3, 6, 1, 2, 4, 10, 1, 4, 11, 2, 5, 1, 2, 8, 1, 5, 1, 3, 11, 2, 9, 2, 7, 1, 7, 1, 7, 2, 7, 2, 9, 2, 11, 3, 1, 4, 1, 7, 2, 11, 3, 1, 6, 2, 11, 4, 1, 8, 3, 1, 6, 2, 1, 6, 2, 1, 6, 2, 1, 7, 3, 1, 9, 4, 2, 13, 6, 3, 1, 9, 4, 2, 1
OFFSET
0,3
LINKS
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
KEYWORD
nonn,easy,base
AUTHOR
Carl R. White, Jan 21 2008
STATUS
approved