A136758 - OEIS

A136758

a(n) = leading digit of n! in base 7.

1, 1, 2, 6, 3, 2, 2, 2, 2, 3, 4, 6, 1, 3, 6, 1, 4, 1, 3, 1, 4, 1, 5, 2, 1, 4, 2, 1, 5, 3, 2, 1, 5, 3, 2, 1, 1, 1, 5, 4, 3, 3, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 5, 6, 1, 1, 1, 2, 3, 4, 5, 1, 1, 2, 3, 4, 1, 1, 2, 3, 5, 1, 2, 3, 5, 1, 2, 3, 6, 1, 3, 5, 1, 2, 4, 1, 2, 4, 1, 2, 5, 1, 2

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

David A. Corneth, Table of n, a(n) for n = 0..9999

EXAMPLE

a(10) = 4 as 10! = 42562410_7 which has leading digit 4. - David A. Corneth, Jan 15 2021

MATHEMATICA

f[n_]:=First[IntegerDigits[n!, 7]]; lst={}; Do[AppendTo[lst, f[n]], {n, 0, 2*5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)

First[IntegerDigits[#, 7]]&/@(Range[0, 100]!) (* Harvey P. Dale, Nov 23 2013 *)

PROG

(PARI) a(n) = digits(n!, 7)[1]; \\ Michel Marcus, Jan 27 2015