login
A136765
a(n) = leading digit of n! in base 15.
13
1, 1, 2, 6, 1, 8, 3, 1, 11, 7, 4, 3, 2, 2, 2, 2, 2, 2, 3, 4, 5, 7, 11, 1, 1, 3, 5, 9, 1, 2, 4, 9, 1, 3, 6, 1, 2, 6, 1, 2, 7, 1, 3, 10, 2, 6, 1, 4, 12, 2, 9, 2, 7, 1, 6, 1, 5, 1, 5, 1, 5, 1, 6, 1, 7, 2, 10, 2, 13, 4, 1, 6, 1, 9, 3, 1, 5, 1, 9, 3, 1, 6, 2, 12, 4, 1, 10, 3, 1, 9, 3, 1, 9, 3, 1, 10, 4, 1, 12, 5
OFFSET
0,3
LINKS
EXAMPLE
a(10) = 4 as 10! = 41110300_15 which has leading digit 4. - David A. Corneth, Jan 15 2021
MATHEMATICA
f[n_]:=First[IntegerDigits[n!, 15]]; lst={}; Do[AppendTo[lst, f[n]], {n, 0, 2*5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)
PROG
(PARI) a(n) = digits(n!, 15)[1]; \\ Michel Marcus, Jan 27 2015
KEYWORD
nonn,easy,base
AUTHOR
Carl R. White, Jan 21 2008
STATUS
approved