|
|
|
|
1, 1, 2, 12, 120, 1320, 23100, 1032300, 21312000, 1120212000, 31311330000, 2120101110000, 130203033300000, 11303022030300000, 1101030032302200000, 103001313131311200000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
b = Table[IntegerDigits[n!, 4], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|