OFFSET
1,2
EXAMPLE
a(3) =123*321 = 39483.
MATHEMATICA
frc[n_]:=Module[{r1=FromDigits[Flatten[IntegerDigits/@Range[n]]], r2 = FromDigits[ Flatten[ IntegerDigits/@Range[n, 1, -1]]]}, r1*r2]; Array[ frc, 20] (* Harvey P. Dale, Aug 24 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 24 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 04 2003
STATUS
approved