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

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

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

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

Crossrefs

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

Sequence in context: A019679 A104457 A155832 * A136765 A011041 A363996

Adjacent sequences: A136761 A136762 A136763 * A136765 A136766 A136767

Keyword

nonn,easy,base

Author

Carl R. White, Jan 21 2008

Status

approved