A136765 a(n) = leading digit of n! in base 15.

1, 1, 2, 6, 1, 8, 3, 1, 11, 7, 4, 3, 2, 2, 2, 2, 2, 2, 3, 4, 5, 7, 11, 1, 1, 3, 5, 9, 1, 2, 4, 9, 1, 3, 6, 1, 2, 6, 1, 2, 7, 1, 3, 10, 2, 6, 1, 4, 12, 2, 9, 2, 7, 1, 6, 1, 5, 1, 5, 1, 5, 1, 6, 1, 7, 2, 10, 2, 13, 4, 1, 6, 1, 9, 3, 1, 5, 1, 9, 3, 1, 6, 2, 12, 4, 1, 10, 3, 1, 9, 3, 1, 9, 3, 1, 10, 4, 1, 12, 5

Offset

0,3

Links

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

Example

a(10) = 4 as 10! = 41110300_15 which has leading digit 4. - David A. Corneth, Jan 15 2021

Mathematica

f[n_]:=First[IntegerDigits[n!, 15]]; lst={}; Do[AppendTo[lst, f[n]], {n, 0, 2*5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)

Prog

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

Crossrefs

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

Sequence in context: A104457 A155832 A136764 * A011041 A363996 A291836

Adjacent sequences: A136762 A136763 A136764 * A136766 A136767 A136768

Keyword

nonn,easy,base

Author

Carl R. White, Jan 21 2008

Status

approved