OFFSET
1,2
MATHEMATICA
fr[n_]:=Module[{f=Factorial[Range[n]]}, FromDigits[Flatten[ IntegerDigits/@ Join[ f, Reverse[ Most[f]]]]]]; Array[fr, 10] (* Harvey P. Dale, Oct 21 2013 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Amarnath Murthy, Dec 25 2001
EXTENSIONS
More terms from Sascha Kurz, Mar 23 2002
One more term from Harvey P. Dale, Oct 21 2013
STATUS
approved