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

1, 1, 2, 6, 2, 10, 5, 3, 2, 2, 2, 2, 2, 2, 3, 4, 6, 10, 1, 2, 4, 9, 1, 3, 7, 1, 3, 9, 2, 5, 1, 3, 1, 3, 9, 2, 9, 2, 9, 3, 1, 3, 1, 5, 1, 7, 2, 1, 4, 1, 9, 3, 1, 7, 3, 1, 8, 3, 1, 9, 4, 2, 1, 7, 3, 2, 1, 6, 3, 2, 1, 8, 4, 2, 1, 1, 7, 4, 3, 2, 1, 10, 6, 4, 3, 2, 1, 1, 9, 6, 5, 3, 2, 2, 1, 1, 1, 9, 7, 6

Offset

0,3

Links

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

Example

a(10) = 2 as 10! = 20594010_11 which has leading digit 2. - David A. Corneth, Jan 15 2021

Mathematica

f[n_]:=First[IntegerDigits[n!, 11]]; lst={}; Do[AppendTo[lst, f[n]], {n, 0, 2*5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)
First[IntegerDigits[#, 11]]&/@(Range[0, 100]!) (* Harvey P. Dale, Feb 20 2013 *)

Prog

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

Crossrefs

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

Sequence in context: A154382 A136762 A136697 * A136698 A223473 A292522

Adjacent sequences: A136758 A136759 A136760 * A136762 A136763 A136764

Keyword

nonn,easy,base

Author

Carl R. White, Jan 21 2008

Status

approved