login
A136762
Leading digit of n! in base 12.
14
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 *)
KEYWORD
base,easy,nonn
AUTHOR
Carl R. White, Jan 21 2008
STATUS
approved