(41) Γ(x+1) [HP-41C]

[Gerson W. Barbosa]

01 LBL "GXP1"
02 1
03 STO 01
04 SF 05
05 X<>Y
06 X<=0?
07 X=0?
08 GTO 01
09 CF 05
10 STO 02
11 CHS
12 LBL 01
13 4
14 STO Z
15 X<=Y?
16 GTO 03
17 +
18 RCL X
19 1
20 +
21 LBL 02
22 1
23 -
24 ST* 01
25 DSE Z
26 GTO 02
27 LBL 03
28 RDN
29 ENTER
30 ENTER
31 41
32 30
33 /
34 RCL Y
35 38
36 /
37 -
38 RCL Y
39 X^2
40 92
41 /
42 +
43 X<>Y
44 ST+ Z
45 ST+ T
46 RDN
47 +
48 6
49 X<>Y
50 /
51 CHS
52 7
53 +
54 6
55 X<>Y
56 /
57 +
58 1/X
59 CHS
60 6
61 +
62 1/X
63 +
64 ST+ X
65 X<>Y
66 R^
67 1
68 E^X
69 /
70 X<>Y
71 Y^X
72 X<>Y
73 PI
74 *
75 SQRT
76 *
77 RCL 01
78 /
79 FS? 05
80 GTO 04
81 PI
82 RCL 02
83 *
84 X<>Y
85 LASTX
86 -1
87 ACOS
88 *
89 SIN
90 *
91 /
92 LBL 04
93 END


Γ(x+1), x = 0..69:

RUN
1,000000000
1,000000001
1,999999999
6,000000014
24,00000001
120,0000001
719,9999998
5.040,000012
40.320,00007
362.880,0005
3.628.800,004
39.916.800,12
479.001.601,3
6.227.020.813,
8,717829135+10
1,307674373+12
2,092278995+13
3,556874291+14
6,402373724+15
1,216451007+17
2,432902018+18
5,109094238+19
1,124000732+21
2,585201681+22
6,204484052+23
1,551121011+25
4,032914629+26
1,088886949+28
3,048883422+29
8,841762138+30
2,652528633+32
8,222838734+33
2,631308388+35
8,683317650+36
2,952327992+38
1,033314794+40
3,719933246+41
1,376375334+43
5,230226253+44
2,039788232+46
8,159152904+47
3,345252679+49
1,405006120+51
6,041526302+52
2,658271563+54
1,196222233+56
5,502622253+57
2,586232450+59
1,241391572+61
6,082818683+62
3,041409332+64
1,551118754+66
8,065817499+67
4,274883375+69
2,308437015+71
1,269640355+73
7,109985964+74
4,052691987+76
2,350561344+78
1,386831189+80
8,320987107+81
5,075802258+83
3,146997390+85
1,982608348+87
1,268869339+89
8,247650677+90
5,443449430+92
3,647111106+94
2,480035546+96
1,711224567+98


Γ(x+1)/x!, x = 0..69:

RUN
1,000000000+00
1,000000001+00
9,999999995-01
1,000000002+00
1,000000000+00
1,000000001+00
9,999999997-01
1,000000002+00
1,000000002+00
1,000000001+00
1,000000001+00
1,000000003+00
1,000000003+00
1,000000002+00
1,000000002+00
1,000000004+00
1,000000003+00
1,000000003+00
1,000000003+00
1,000000002+00
1,000000004+00
1,000000004+00
1,000000004+00
1,000000003+00
1,000000006+00
1,000000005+00
1,000000004+00
1,000000004+00
9,999999921-01
1,000000016+00
1,000000013+00
1,000000010+00
1,000000007+00
1,000000004+00
1,000000001+00
9,999999971-01
9,999999941-01
1,000000018+00
1,000000015+00
1,000000012+00
1,000000009+00
1,000000005+00
1,000000001+00
9,999999993-01
9,999999955-01
1,000000020+00
1,000000017+00
1,000000014+00
1,000000010+00
1,000000007+00
1,000000004+00
1,000000001+00
9,999999978-01
1,000000021+00
1,000000018+00
1,000000016+00
1,000000012+00
1,000000009+00
1,000000006+00
1,000000003+00
9,999999993-01
1,000000023+00
1,000000020+00
1,000000017+00
1,000000013+00
1,000000010+00
1,000000007+00
1,000000004+00
1,000000002+00
1,000000025+00


Γ(x+1), x = -19/2..17/2

RUN
-2,633521509-05
2,238493289-04
-1,678869965-03
1,091265477-02
-6,001960120-02
2,700882051-01
-9,453087196-01
2,363271799+00
-3,544907695+00
1,772453847+00
8,862269277-01
1,329340391+00
3,323350974+00
1,163172841+01
5,234277792+01
2,878852784+02
1,871254308+03
1,403440731+04
1,192924620+05



Edited to change lines 06 and 07.

Previously,

06 X!=0?
07 X>0?