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

Author

Carl R. White, Jan 21 2008

Keywords

• nonn
• easy
• base

Examples

			a(10) = 6 as 10! = 6106640_14 which has leading digit 6. - _David A. Corneth_, Jan 15 2021
		

Links

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

Crossrefs

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

Programs

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 *)

PARI

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