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

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

Crossrefs

Cf. A000142, A136694, A136754, A136755, A136756, A136757, A136759, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766.

Sequence in context: A201761 A011042 A256127 * A056113 A251755 A128203

Adjacent sequences: A136755 A136756 A136757 * A136759 A136760 A136761

Keyword

base,easy,nonn

Author

Carl R. White, Jan 21 2008

Status

approved