A136762 Leading digit of n! in base 12.

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

Offset

0,3

Links

Michael De Vlieger, Table of n, a(n) for n = 0..10368 (10368 = 6 * 12^3)

Mathematica

f[n_]:=First[IntegerDigits[n!, 12]]; lst={}; Do[AppendTo[lst, f[n]], {n, 0, 2*5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)
a136762[n_Integer] := First[Select[IntegerDigits[n!, 12], # > 0 &]]; a136762 /@ Range[0, 144] (* Michael De Vlieger, Aug 13 2014 *)

Crossrefs

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

Sequence in context: A126289 A200044 A154382 * A136697 A136761 A136698

Adjacent sequences: A136759 A136760 A136761 * A136763 A136764 A136765

Keyword

base,easy,nonn

Author

Carl R. White, Jan 21 2008

Status

approved