Anonymous user
Left factorials: Difference between revisions
GP
(started Haskell) |
(GP) |
||
Line 115:
9000 31678
10000 35656</lang>
=={{header|PARI/GP}}==
<lang parigp>lf(n)=sum(k=1,n,k!);
apply(lf, [0..10])
apply(lf, 10*[2..11])
forstep(n=1000,1e4,1000,print1(#digits(lf(n))", "))</lang>
{{out}}
<pre>%1 = [0, 1, 3, 9, 33, 153, 873, 5913, 46233, 409113, 4037913]
%2 = [2561327494111820313, 274410818470142134209703780940313, 836850334330315506193242641144055892504420940313, 31035053229546199656252032972759319953190362094566672920420940313, 8462062043468059715276872005310364902965828848477685901450258075155728920420940313, 12152211181772879322772500884098381612524494662396029015406215899272824694011444828896528920420940313, 72475546634251497641346050527836822803278682172377708942293772732846791349769845157550953399272655002336528920420940313, 1502411534554385708076556901309220361246303476448264631078562774040909433056470746056217854443119902314404742463115020442336528920420940313, 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313, 16028178396289014701258409855092678943673045433708423928570406360980746444276798572896043427681153914716768010060384387640448280252480370395985821340917452556442336528920420940313]
2568, 5736, 9131, 12674, 16326, 20066, 23878, 27753, 31682, 35660, </pre>
=={{header|Perl 6}}==
| |||