my @coeff = reverse <DATA>;
sub Gamma {
    my $x = shift;
    my $s;
    $s = $s*($x-1) + $_ for @coeff;
    return 1 / $s;
}

for (1 .. 10) {
    $_ /= 3;
    printf "Gamma(%.5f) ≈ %.14e\n", $_, Gamma($_);
}

__DATA__
1.00000000000000000000
0.57721566490153286061
-0.65587807152025388108
-0.04200263503409523553
0.16653861138229148950
-0.04219773455554433675
-0.00962197152787697356
0.00721894324666309954
-0.00116516759185906511
-0.00021524167411495097
0.00012805028238811619
-0.00002013485478078824
-0.00000125049348214267
0.00000113302723198170
-0.00000020563384169776
0.00000000611609510448
0.00000000500200764447
-0.00000000118127457049
0.00000000010434267117
0.00000000000778226344
-0.00000000000369680562
0.00000000000051003703
-0.00000000000002058326
-0.00000000000000534812
0.00000000000000122678
-0.00000000000000011813
0.00000000000000000119
0.00000000000000000141
-0.00000000000000000023
0.00000000000000000002