Left factorials: Difference between revisions

Content added Content deleted
(GP)
Line 117:
 
=={{header|PARI/GP}}==
<lang parigp>lf(n)=sum(k=10,n-1,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, 32, 94, 3310, 15334, 873154, 5913874, 462335914, 40911346234, 4037913409114]
%2 = [128425485935180314, 9157958657951075573395300940314, 20935051082417771847631371547939998232420940314, 620960027832821612639424806694551108812720525606160920420940314, 141074930726669571000530822087000522211656242116439949000980378746128920420940314, 173639511802987526699717162409282876065556519849603157850853034644815111221599509216528920420940314, 906089587987695346534516804650290637694024830011956365184327674619752094289696314882008531991840922336528920420940314, 16695570072624210767034167688394623360733515163575864136345910335924039962404869510225723072235842668787507993136908442336528920420940314, 942786239765826579160595268206839381354754349601050974345395410407078230249590414458830117442618180732911203520208889371641659121356556442336528920420940314, 145722981061585297004706728001906071948635199234860720988658042536179281328615541936083296163475394237524337422204397431927131629058103519228197429698252556442336528920420940314]
%2 = [2561327494111820313, 274410818470142134209703780940313, 836850334330315506193242641144055892504420940313, 31035053229546199656252032972759319953190362094566672920420940313, 8462062043468059715276872005310364902965828848477685901450258075155728920420940313, 12152211181772879322772500884098381612524494662396029015406215899272824694011444828896528920420940313, 72475546634251497641346050527836822803278682172377708942293772732846791349769845157550953399272655002336528920420940313, 1502411534554385708076556901309220361246303476448264631078562774040909433056470746056217854443119902314404742463115020442336528920420940313, 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313, 16028178396289014701258409855092678943673045433708423928570406360980746444276798572896043427681153914716768010060384387640448280252480370395985821340917452556442336528920420940313]
25682565, 57365733, 91319128, 1267412670, 1632616322, 2006620062, 2387823875, 2775327749, 3168231678, 3566035656, </pre>
 
=={{header|Perl 6}}==
Retrieved from "https://rosettacode.org/wiki/Left_factorials"