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
KEYWORD
base,easy,nonn
AUTHOR
Carl R. White, Jan 21 2008
STATUS
approved