OFFSET
0,3
MATHEMATICA
b = Table[IntegerDigits[n!, 9], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 05 2007
STATUS
approved