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

Author

Carl R. White, Jan 21 2008

Keywords

• base
• easy
• nonn

Links

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

Crossrefs

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

Programs

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