|
|
|
|
1, 1, 2, 6, 30, 170, 1320, 11660, 116600, 1304600, 15657400, 230212400, 3443176000, 56312146000, 1211416624000, 23016735654000, 460356735300000, 12067735663300000, 265756631234600000, 6601271140642200000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
b = Table[IntegerDigits[n!, 8], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|