OFFSET
0,2
FORMULA
a(n) = n!!*10^floor(1+log_10(a(n-1))) + a(n-1), with a(1)=1.
MAPLE
P:=proc(i) local a, j, k, n; a:=1; print(1); for n from 2 by 1 to i do k:=n; j:=n-2; while j>0 do k:=k*j; j:=j-2; od; a:=k*10^floor(evalf(1+log10(a), 1000))+a; print(a); od; end: P(20);
MATHEMATICA
FromDigits/@(Flatten[IntegerDigits/@Reverse[#]]&/@Table[ Take[Range[20]!!, n], {n, 20}]) (* Harvey P. Dale, Sep 30 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Jun 20 2008
STATUS
approved