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