OFFSET
0,2
MAPLE
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);
MATHEMATICA
Table[FromDigits[Flatten[IntegerDigits/@Reverse[Range[n]!]]], {n, 10}] (* Harvey P. Dale, Apr 22 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Jun 20 2008
STATUS
approved