OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..43
MATHEMATICA
Module[{nn=20, f}, f=Range[0, nn]!; Table[FromDigits[Flatten[ IntegerDigits/@ Take[f, n]]], {n, nn}]] (* Harvey P. Dale, Mar 13 2016 *)
PROG
(Magma) [Seqint(Reverse(&cat[Reverse(Intseq(Factorial(k))): k in [0..n]])): n in [0..17]]; // Vincenzo Librandi, Aug 11 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Henry Bottomley, Aug 07 2000
STATUS
approved