%I #5 Apr 22 2022 15:41:47
%S 1,21,621,24621,12024621,72012024621,504072012024621,
%T 40320504072012024621,36288040320504072012024621,
%U 362880036288040320504072012024621
%N Concatenate first n factorials in reverse order.
%p P:=proc(i) local a,n; a:=1; print(1); for n from 2 by 1 to i do a:=n!*10^floor(evalf(1+log10(a),1000))+a; print(a); od; end: P(15);
%t Table[FromDigits[Flatten[IntegerDigits/@Reverse[Range[n]!]]],{n,10}] (* _Harvey P. Dale_, Apr 22 2022 *)
%Y Cf. A045508, A141266, A141267.
%K nonn,base
%O 0,2
%A _Paolo P. Lava_, Jun 20 2008
|