|
|
A066625
|
|
Concatenation of factorials in increasing order up to the n-th and then in decreasing order.
|
|
0
|
|
|
1, 121, 12621, 12624621, 1262412024621, 1262412072012024621, 12624120720504072012024621, 12624120720504040320504072012024621, 1262412072050404032036288040320504072012024621, 12624120720504040320362880362880036288040320504072012024621
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|