OFFSET
0,3
MATHEMATICA
b = Table[IntegerDigits[n!, 7], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)
FromDigits[IntegerDigits[#, 7]]&/@(Range[0, 20]!) (* Harvey P. Dale, Jun 19 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Artur Jasinski, Jan 05 2007
EXTENSIONS
More terms from Harvey P. Dale, Jun 19 2011
STATUS
approved