These approximations are getting too big, so I will stop here, unless I need them for something else beside cataloging them. So here is the last one, giving a teeny more that 5000 digits. The following is from the attached notebook, 5KAPPROXMRB.nb .
TranscendentalRecognize[(num_)?NumericQ,
(basis_)?VectorQ] := Module[{lr, ans},
lr = FindIntegerNullVector[Prepend[
N[basis, Precision[num]], num]];
ans = Rest[lr] . basis/First[lr];
Sign[N[ans]]*Sign[num]*ans]
m = NSum[(-1)^n*(n^(1/n) - 1), {n, 1, Infinity},
Method -> "AlternatingSigns", WorkingPrecision ->
5050];
Null
s = Table[Sum[x^(-n!), {n, 2, Infinity}], {x, 2, 151}];
Null
TranscendentalRecognize[N[m, 5000], s[[2 ;; 150]]]
Used just once in checking below.
N[m - (57731535531534074556671315066869265517*
Sum[3^(-n!), {n, 2, Infinity}] -
44095020796241304068065167632121179263*
Sum[4^(-n!), {n, 2, Infinity}] -
21899634945056310153254484279892470136*
Sum[5^(-n!), {n, 2, Infinity}] +
64198663255948314049277738781090759487*
Sum[6^(-n!), {n, 2, Infinity}] +
28871295479878266141611363045637855466*
Sum[7^(-n!), {n, 2, Infinity}] +
11666986343030428973126152660286950773*
Sum[8^(-n!), {n, 2, Infinity}] -
65205047843667188059323268693881332325*
Sum[9^(-n!), {n, 2, Infinity}] +
75104610169275035900724312103934100381*
Sum[10^(-n!), {n, 2, Infinity}] -
29659362700519526408616322083811766955*
Sum[11^(-n!), {n, 2, Infinity}] +
30966513369982825469148848886354858271*
Sum[12^(-n!), {n, 2, Infinity}] +
21331785169137353264577401878384599591*
Sum[13^(-n!), {n, 2, Infinity}] +
3065642217622990749338289637337595091*
Sum[14^(-n!), {n, 2, Infinity}] -
23383629125779495670814889192055006876*
Sum[15^(-n!), {n, 2, Infinity}] -
72248291162176659416431990703859021856*
Sum[16^(-n!), {n, 2, Infinity}] -
29759958353350071889162668457408175096*
Sum[17^(-n!), {n, 2, Infinity}] +
100500720770089502902929450889028451472*
Sum[18^(-n!), {n, 2, Infinity}] -
109739483085795430153492729799779050761*
Sum[19^(-n!), {n, 2, Infinity}] +
58589474174990418993950489289592357698*
Sum[20^(-n!), {n, 2, Infinity}] +
60455697244272155270448262833737276946*
Sum[21^(-n!), {n, 2, Infinity}] +
31504035743595585662940887847142084870*
Sum[22^(-n!), {n, 2, Infinity}] -
48428472373363769656363485066997912215*
Sum[23^(-n!), {n, 2, Infinity}] -
24289904406504482178658762157762527838*
Sum[24^(-n!), {n, 2, Infinity}] +
17254138305058267452388443796291524541*
Sum[25^(-n!), {n, 2, Infinity}] -
25662209434405915705512396386982790445*
Sum[26^(-n!), {n, 2, Infinity}] +
131732902657106848368469437016782454281*
Sum[27^(-n!), {n, 2, Infinity}] +
55780100174020505028242079005886202452*
Sum[28^(-n!), {n, 2, Infinity}] +
23492866909210871697083700499024822222*
Sum[29^(-n!), {n, 2, Infinity}] +
3721897447313079132569450891021462070*
Sum[30^(-n!), {n, 2, Infinity}] +
59331853064471643662111946758203650513*
Sum[31^(-n!), {n, 2, Infinity}] +
77517119881558651969131820934219910057*
Sum[32^(-n!), {n, 2, Infinity}] +
4206182612817582191667460877993504262*
Sum[33^(-n!), {n, 2, Infinity}] -
5917283081874253631185572216907437926*
Sum[34^(-n!), {n, 2, Infinity}] +
40361106058146017030833827947888339635*
Sum[35^(-n!), {n, 2, Infinity}] +
54160435650934666371505397996930758058*
Sum[36^(-n!), {n, 2, Infinity}] -
10318650648664886915018810951301369219*
Sum[37^(-n!), {n, 2, Infinity}] -
21674149094241614039408992207631674559*
Sum[38^(-n!), {n, 2, Infinity}] -
83632751540300288351296574455004812379*
Sum[39^(-n!), {n, 2, Infinity}] +
2714345984623462589205452084791404375*
Sum[40^(-n!), {n, 2, Infinity}] -
54173469179400163618760585322248571300*
Sum[41^(-n!), {n, 2, Infinity}] +
3416604931787268282013119958491840497*
Sum[42^(-n!), {n, 2, Infinity}] +
46706272725633962846591582479685518280*
Sum[43^(-n!), {n, 2, Infinity}] -
22340740488893796575845713085665268220*
Sum[44^(-n!), {n, 2, Infinity}] -
77874080439023285153613799838517359373*
Sum[45^(-n!), {n, 2, Infinity}] +
79587148722657401903646568655349069434*
Sum[46^(-n!), {n, 2, Infinity}] -
57299264530274322352557638096139739497*
Sum[47^(-n!), {n, 2, Infinity}] -
6443167031643195030168407942967209231*
Sum[48^(-n!), {n, 2, Infinity}] -
61395454494662187525617074996710546689*
Sum[49^(-n!), {n, 2, Infinity}] -
11619673414316088840208290422423993752*
Sum[50^(-n!), {n, 2, Infinity}] +
7015638425196477888296968310449618064*
Sum[51^(-n!), {n, 2, Infinity}] +
21285977961585179173108872508295066262*
Sum[52^(-n!), {n, 2, Infinity}] +
18833426693550740250200144451611433575*
Sum[53^(-n!), {n, 2, Infinity}] -
52937403172753792794830709996831353297*
Sum[54^(-n!), {n, 2, Infinity}] -
14867673984569243398186202710971388681*
Sum[55^(-n!), {n, 2, Infinity}] -
94482443311644486128430406519155399632*
Sum[56^(-n!), {n, 2, Infinity}] +
40235684381039754780167986402468093663*
Sum[57^(-n!), {n, 2, Infinity}] +
91591589608109381816747858875698034947*
Sum[58^(-n!), {n, 2, Infinity}] -
18293627536835752608890255749718210100*
Sum[59^(-n!), {n, 2, Infinity}] -
58324966255662817852061676368317475344*
Sum[60^(-n!), {n, 2, Infinity}] +
57656624502801667057834909431037192717*
Sum[61^(-n!), {n, 2, Infinity}] +
20935616850996435879546270576024167019*
Sum[62^(-n!), {n, 2, Infinity}] +
18451216415057205247641143251017373760*
Sum[63^(-n!), {n, 2, Infinity}] +
85808867747485942085772910625263787953*
Sum[64^(-n!), {n, 2, Infinity}] +
71550751826275229063345444850146128320*
Sum[65^(-n!), {n, 2, Infinity}] +
16127347579828036974574753798828507872*
Sum[66^(-n!), {n, 2, Infinity}] -
8483005071033316725549832707304227990*
Sum[67^(-n!), {n, 2, Infinity}] +
69647119603654268083221111968347248441*
Sum[68^(-n!), {n, 2, Infinity}] +
33580943378314302118381767680050837605*
Sum[69^(-n!), {n, 2, Infinity}] +
17027657955814127839286423878196624957*
Sum[70^(-n!), {n, 2, Infinity}] -
38311102715841846211801690604531307536*
Sum[71^(-n!), {n, 2, Infinity}] -
63189103282054975017269674235313560905*
Sum[72^(-n!), {n, 2, Infinity}] -
49164273883130375853898730519798432277*
Sum[73^(-n!), {n, 2, Infinity}] -
31753164586977509575224959809384829639*
Sum[74^(-n!), {n, 2, Infinity}] +
13172438190297907801779959545441005911*
Sum[75^(-n!), {n, 2, Infinity}] -
13311538012642998140206646875084032906*
Sum[76^(-n!), {n, 2, Infinity}] -
3594703844561927312953730401527983068*
Sum[77^(-n!), {n, 2, Infinity}] -
71212752776422086409455238372506995961*
Sum[78^(-n!), {n, 2, Infinity}] +
46270051330640786710165883133853991246*
Sum[79^(-n!), {n, 2, Infinity}] +
128435509337369614063672322025790317821*
Sum[80^(-n!), {n, 2, Infinity}] +
2284155794720492254077614563223123089*
Sum[81^(-n!), {n, 2, Infinity}] -
20454605090757316455784842163150930202*
Sum[82^(-n!), {n, 2, Infinity}] +
15269572842729141817229302478539842818*
Sum[83^(-n!), {n, 2, Infinity}] -
67853651799682565921858759245378860029*
Sum[84^(-n!), {n, 2, Infinity}] -
7420016241806218445084306897539407120*
Sum[85^(-n!), {n, 2, Infinity}] +
14995960344272264911026064897057582228*
Sum[86^(-n!), {n, 2, Infinity}] -
46508210131269373298559574055788132440*
Sum[87^(-n!), {n, 2, Infinity}] -
20827116575862053194096940132387721994*
Sum[88^(-n!), {n, 2, Infinity}] -
34901546305911194024567186981012437606*
Sum[89^(-n!), {n, 2, Infinity}] +
80723093887038779483313385645769643500*
Sum[90^(-n!), {n, 2, Infinity}] +
91298015023732805705443828408804302475*
Sum[91^(-n!), {n, 2, Infinity}] +
81914149461025379900990501612006241152*
Sum[92^(-n!), {n, 2, Infinity}] -
83022867179955413506823990831899646978*
Sum[93^(-n!), {n, 2, Infinity}] -
19825217698560073963597842251901616257*
Sum[94^(-n!), {n, 2, Infinity}] +
3222466975927586221463692362305204380*
Sum[95^(-n!), {n, 2, Infinity}] +
62432261944374190390363726971924682556*
Sum[96^(-n!), {n, 2, Infinity}] -
1307205745820583693824658255976746779*
Sum[97^(-n!), {n, 2, Infinity}] +
28546553867155733246796355632159408964*
Sum[98^(-n!), {n, 2, Infinity}] +
28891921543305070619215026866436199044*
Sum[99^(-n!), {n, 2, Infinity}] +
854726094389218310649167628752870231*
Sum[100^(-n!), {n, 2, Infinity}] -
14763391439605645054369729804861276095*
Sum[101^(-n!), {n, 2, Infinity}] -
15373446902497158633176739257794930459*
Sum[102^(-n!), {n, 2, Infinity}] -
120798493462125307308655930369628726675*
Sum[103^(-n!), {n, 2, Infinity}] +
52469138834626960041562563946768572181*
Sum[104^(-n!), {n, 2, Infinity}] -
6611709288516320545870471975220980889*
Sum[105^(-n!), {n, 2, Infinity}] +
1867398543543123228627894767305534096*
Sum[106^(-n!), {n, 2, Infinity}] -
41120969884927540527684937142042509555*
Sum[107^(-n!), {n, 2, Infinity}] +
24714859574703194917646384967949359756*
Sum[108^(-n!), {n, 2, Infinity}] +
21406960988304903266507168441981141721*
Sum[109^(-n!), {n, 2, Infinity}] +
25038835436090437233406109185855450255*
Sum[110^(-n!), {n, 2, Infinity}] -
59828824335358169580429717457287320545*
Sum[111^(-n!), {n, 2, Infinity}] +
154716505347217330839630246672590287370*
Sum[112^(-n!), {n, 2, Infinity}] -
14008249603244862952574536874073307143*
Sum[113^(-n!), {n, 2, Infinity}] -
60092773884925890446958593479837943494*
Sum[114^(-n!), {n, 2, Infinity}] -
21004274181981080897701041545003036963*
Sum[115^(-n!), {n, 2, Infinity}] +
111223157013811580104704722696930875247*
Sum[116^(-n!), {n, 2, Infinity}] -
131096210353465154292178973243593655894*
Sum[117^(-n!), {n, 2, Infinity}] -
100163463831512802687978802486240031353*
Sum[118^(-n!), {n, 2, Infinity}] +
57595647530931103298163259136147823663*
Sum[119^(-n!), {n, 2, Infinity}] -
10358776687309523297047179676726518045*
Sum[120^(-n!), {n, 2, Infinity}] +
38302900634278996392516308092330716712*
Sum[121^(-n!), {n, 2, Infinity}] +
47804000025054638274936539029104594109*
Sum[122^(-n!), {n, 2, Infinity}] +
4700122543740534458043165957297794992*
Sum[123^(-n!), {n, 2, Infinity}] -
57246490768146036272392003474414317632*
Sum[124^(-n!), {n, 2, Infinity}] -
101895023006956616686134883219546794163*
Sum[125^(-n!), {n, 2, Infinity}] -
94556932576515823590049207532045378601*
Sum[126^(-n!), {n, 2, Infinity}] -
703128403991430321160538072784015573*
Sum[127^(-n!), {n, 2, Infinity}] +
22782338374148948514085790694781879236*
Sum[128^(-n!), {n, 2, Infinity}] +
73771246494037944157479555600739327812*
Sum[129^(-n!), {n, 2, Infinity}] -
4553058762763582479505833213730159831*
Sum[130^(-n!), {n, 2, Infinity}] +
3741392875646463440545717580776717213*
Sum[131^(-n!), {n, 2, Infinity}] +
9487508228156559427322012324493744538*
Sum[132^(-n!), {n, 2, Infinity}] +
36655109112750606669557335936705614924*
Sum[133^(-n!), {n, 2, Infinity}] -
20092593206525648655881369770537750374*
Sum[134^(-n!), {n, 2, Infinity}] -
9592512922811837810310769163219047391*
Sum[135^(-n!), {n, 2, Infinity}] -
98799727244199015713460035512968035899*
Sum[136^(-n!), {n, 2, Infinity}] -
30110420637800073581700420185763072042*
Sum[137^(-n!), {n, 2, Infinity}] -
54354156218806994727210229408530239149*
Sum[138^(-n!), {n, 2, Infinity}] +
73230976379721544869544476715993132377*
Sum[139^(-n!), {n, 2, Infinity}] -
95643543550167132551902068508307710657*
Sum[140^(-n!), {n, 2, Infinity}] -
36652120470322008922568234491289311890*
Sum[141^(-n!), {n, 2, Infinity}] +
36624482932592290727011693355435008314*
Sum[142^(-n!), {n, 2, Infinity}] -
45572259185730347719999417604003835132*
Sum[143^(-n!), {n, 2, Infinity}] -
10388528564290377184185465655883250949*
Sum[144^(-n!), {n, 2, Infinity}] +
11058524828785980139984714279831742890*
Sum[145^(-n!), {n, 2, Infinity}] -
81594137033369586975137123509511783441*
Sum[146^(-n!), {n, 2, Infinity}] -
19543355984406037564448478952611709118*
Sum[147^(-n!), {n, 2, Infinity}] -
109525526881866971076008622439807099934*
Sum[148^(-n!), {n, 2, Infinity}] +
16300270168294057208852874105352647785*
Sum[149^(-n!), {n, 2, Infinity}] -
29238726445163807704491144908413171592*
Sum[150^(-n!), {n, 2, Infinity}] +
8312704803526195122769807573601867172*
Sum[151^(-n!), {n, 2, Infinity}])/
29555894016645948876604458335734030343, 5050]
gives
1.45472134483986690932420586937649500231787...*^-5003
Also a notebook with a 6000 digit approx is below and attached.
I Decided to add it to see if anyone can figure out a pattern.
(315981424734279695944988454735349008*
Sum[3^(-n!), {n, 2, Infinity}] +
263423996018012329771736458181315695*
Sum[4^(-n!), {n, 2, Infinity}] -
225089838855827096167206491226890453*
Sum[5^(-n!), {n, 2, Infinity}] +
79001337992367787044034193000391921*
Sum[6^(-n!), {n, 2, Infinity}] +
82678726909932185622246011042919182*
Sum[7^(-n!), {n, 2, Infinity}] -
247512322536610252151262924731282435*
Sum[8^(-n!), {n, 2, Infinity}] -
373025156916679117399944255380192973*
Sum[9^(-n!), {n, 2, Infinity}] +
489448126438191836401630086136736784*
Sum[10^(-n!), {n, 2, Infinity}] -
38974476779796180723370173855027274*
Sum[11^(-n!), {n, 2, Infinity}] +
302228585683016982083843206903263152*
Sum[12^(-n!), {n, 2, Infinity}] -
509342246318522665519734352063206162*
Sum[13^(-n!), {n, 2, Infinity}] -
85350690530786302144573962214621151*
Sum[14^(-n!), {n, 2, Infinity}] -
479351485358820743688775530832165702*
Sum[15^(-n!), {n, 2, Infinity}] +
204477791516638635965393390265208484*
Sum[16^(-n!), {n, 2, Infinity}] +
13385289748029332545946019740090415*
Sum[17^(-n!), {n, 2, Infinity}] -
157087956179230468329160163646308887*
Sum[18^(-n!), {n, 2, Infinity}] +
263474578355711774585051601431349774*
Sum[19^(-n!), {n, 2, Infinity}] +
97689520253762483063496321133985796*
Sum[20^(-n!), {n, 2, Infinity}] -
113195866425880453454502398064093977*
Sum[21^(-n!), {n, 2, Infinity}] +
174716639458316549154287353779689292*
Sum[22^(-n!), {n, 2, Infinity}] +
217824330687208262192110074949241343*
Sum[23^(-n!), {n, 2, Infinity}] -
7942668367405234213472069233019886*
Sum[24^(-n!), {n, 2, Infinity}] -
207393236117386950046340580124345419*
Sum[25^(-n!), {n, 2, Infinity}] +
172383688497561861995251147333700938*
Sum[26^(-n!), {n, 2, Infinity}] +
144408938241864702564745188333518242*
Sum[27^(-n!), {n, 2, Infinity}] +
19856450607914676901940694502412091*
Sum[28^(-n!), {n, 2, Infinity}] +
71827614351161963367675827441301274*
Sum[29^(-n!), {n, 2, Infinity}] +
209883409286900104613955679964303833*
Sum[30^(-n!), {n, 2, Infinity}] +
91110178999390077428396192426673845*
Sum[31^(-n!), {n, 2, Infinity}] -
119884940466936964776666254085163196*
Sum[32^(-n!), {n, 2, Infinity}] +
51371406160894613525692832024139738*
Sum[33^(-n!), {n, 2, Infinity}] -
60470663699938201840915277998362143*
Sum[34^(-n!), {n, 2, Infinity}] -
26379597856446288295640917038864490*
Sum[35^(-n!), {n, 2, Infinity}] -
252578964335856408098941641365904628*
Sum[36^(-n!), {n, 2, Infinity}] +
313297948156460384849465701023469*Sum[37^(-n!),
{n, 2, Infinity}] -
238465182471529245716545180075648340*
Sum[38^(-n!), {n, 2, Infinity}] -
310571320016173268427612358922750295*
Sum[39^(-n!), {n, 2, Infinity}] +
438570535340392744689031167389555374*
Sum[40^(-n!), {n, 2, Infinity}] +
148973823070752413601420185118514385*
Sum[41^(-n!), {n, 2, Infinity}] -
12933064459296489356215220491969905*
Sum[42^(-n!), {n, 2, Infinity}] +
125229095153406272804498756316486543*
Sum[43^(-n!), {n, 2, Infinity}] +
179919250855304262282694440172008701*
Sum[44^(-n!), {n, 2, Infinity}] -
65364651686252682986073857154785133*
Sum[45^(-n!), {n, 2, Infinity}] -
94847344263989779988112499508155948*
Sum[46^(-n!), {n, 2, Infinity}] -
621627953356444169434114635659571781*
Sum[47^(-n!), {n, 2, Infinity}] +
241831496547243211024459553012456108*
Sum[48^(-n!), {n, 2, Infinity}] -
80382601092110385430867421360994192*
Sum[49^(-n!), {n, 2, Infinity}] +
214319245669088348481923244047278353*
Sum[50^(-n!), {n, 2, Infinity}] +
263616311677846637171116951814248834*
Sum[51^(-n!), {n, 2, Infinity}] -
47217446846628628172714044765259562*
Sum[52^(-n!), {n, 2, Infinity}] -
160559943742761005221065628056915360*
Sum[53^(-n!), {n, 2, Infinity}] +
124288679032449106926938304339538588*
Sum[54^(-n!), {n, 2, Infinity}] -
197937587153815754792688590868006073*
Sum[55^(-n!), {n, 2, Infinity}] +
54557603465371360054436979408777625*
Sum[56^(-n!), {n, 2, Infinity}] -
97162833540442963477079325054823592*
Sum[57^(-n!), {n, 2, Infinity}] -
90320339434632806839828901977497508*
Sum[58^(-n!), {n, 2, Infinity}] -
15869448917653025921598376361231822*
Sum[59^(-n!), {n, 2, Infinity}] +
97944774418250015033878296784456445*
Sum[60^(-n!), {n, 2, Infinity}] +
36798433281590416847750764293609436*
Sum[61^(-n!), {n, 2, Infinity}] +
252639830095148671730012461570230583*
Sum[62^(-n!), {n, 2, Infinity}] -
60454733566848343419447448832119054*
Sum[63^(-n!), {n, 2, Infinity}] +
412531740074892182558565222439091209*
Sum[64^(-n!), {n, 2, Infinity}] +
222186389489693893971771846666428316*
Sum[65^(-n!), {n, 2, Infinity}] +
152444052645393490345585279197665837*
Sum[66^(-n!), {n, 2, Infinity}] -
45712465705543638455056885162906980*
Sum[67^(-n!), {n, 2, Infinity}] +
537888021247460244376707283556926677*
Sum[68^(-n!), {n, 2, Infinity}] +
41729702289089382012946311545939513*
Sum[69^(-n!), {n, 2, Infinity}] +
269839406669060930667191565937804546*
Sum[70^(-n!), {n, 2, Infinity}] +
135086788301021891711964442036630427*
Sum[71^(-n!), {n, 2, Infinity}] -
28888022019045539583358799776076932*
Sum[72^(-n!), {n, 2, Infinity}] +
113532956776247778469719191157543773*
Sum[73^(-n!), {n, 2, Infinity}] -
89307745544685357903676017016484787*
Sum[74^(-n!), {n, 2, Infinity}] +
47838743041867005632039446217738151*
Sum[75^(-n!), {n, 2, Infinity}] +
184083250574080586193876701395692284*
Sum[76^(-n!), {n, 2, Infinity}] -
135857254885547479195698346359609379*
Sum[77^(-n!), {n, 2, Infinity}] -
117608774311099026843625475716325491*
Sum[78^(-n!), {n, 2, Infinity}] -
73263873196621702272542398429997287*
Sum[79^(-n!), {n, 2, Infinity}] -
36674398326493497474335279956752119*
Sum[80^(-n!), {n, 2, Infinity}] +
1349446953914528982825041795604197*
Sum[81^(-n!), {n, 2, Infinity}] -
49318698626911631983193408221702888*
Sum[82^(-n!), {n, 2, Infinity}] +
312434270346509621900655479125952464*
Sum[83^(-n!), {n, 2, Infinity}] +
20361467111872699753180246042732586*
Sum[84^(-n!), {n, 2, Infinity}] +
37585893876831895828817156870674991*
Sum[85^(-n!), {n, 2, Infinity}] -
92324616850053384287711048884039538*
Sum[86^(-n!), {n, 2, Infinity}] -
12181874329276651146548526373957738*
Sum[87^(-n!), {n, 2, Infinity}] +
76250223084500704962391681263286831*
Sum[88^(-n!), {n, 2, Infinity}] +
174201681256909307459523915152881457*
Sum[89^(-n!), {n, 2, Infinity}] -
23961565519484663694162413453690203*
Sum[90^(-n!), {n, 2, Infinity}] -
149999380951599562551754971549446591*
Sum[91^(-n!), {n, 2, Infinity}] +
54943757923779838427102559784033199*
Sum[92^(-n!), {n, 2, Infinity}] -
8339247753293270311605791564177575*
Sum[93^(-n!), {n, 2, Infinity}] +
237072493457174281387274575949807591*
Sum[94^(-n!), {n, 2, Infinity}] -
259571743147388275774214807165075384*
Sum[95^(-n!), {n, 2, Infinity}] +
88685372064249400413234600210246056*
Sum[96^(-n!), {n, 2, Infinity}] +
51564239309247760026781789145118667*
Sum[97^(-n!), {n, 2, Infinity}] +
9488491149572121359149972552544321*
Sum[98^(-n!), {n, 2, Infinity}] -
100165938874819370241719527413349478*
Sum[99^(-n!), {n, 2, Infinity}] -
207195325384481749820847136464019828*
Sum[100^(-n!), {n, 2, Infinity}] -
54481457817463396570634375163914993*
Sum[101^(-n!), {n, 2, Infinity}] +
249079767298561005825683297640400784*
Sum[102^(-n!), {n, 2, Infinity}] +
29304706256650991339784984234383998*
Sum[103^(-n!), {n, 2, Infinity}] +
174735356467887097758558215245744513*
Sum[104^(-n!), {n, 2, Infinity}] -
108889550843958974521933476640338838*
Sum[105^(-n!), {n, 2, Infinity}] +
87462022299835631237720920878276644*
Sum[106^(-n!), {n, 2, Infinity}] +
352764652159751665182743140743797835*
Sum[107^(-n!), {n, 2, Infinity}] -
39527540676546427988382515109034788*
Sum[108^(-n!), {n, 2, Infinity}] -
197535107893227221684343578698597562*
Sum[109^(-n!), {n, 2, Infinity}] +
408966239657680369638120674175630782*
Sum[110^(-n!), {n, 2, Infinity}] -
179041538282929746452523277369969046*
Sum[111^(-n!), {n, 2, Infinity}] -
418987347443356698579370926729452317*
Sum[112^(-n!), {n, 2, Infinity}] +
212673413170115056993488568648538628*
Sum[113^(-n!), {n, 2, Infinity}] +
109402498909040751573711220405298243*
Sum[114^(-n!), {n, 2, Infinity}] -
251694051940381172374491380867070131*
Sum[115^(-n!), {n, 2, Infinity}] +
82922590579916575323370846170661625*
Sum[116^(-n!), {n, 2, Infinity}] +
141185801698917717457812216215148958*
Sum[117^(-n!), {n, 2, Infinity}] +
181134491265141326525541898931448362*
Sum[118^(-n!), {n, 2, Infinity}] -
132213080778822164157827259847107066*
Sum[119^(-n!), {n, 2, Infinity}] -
88473636543082192730804664586530929*
Sum[120^(-n!), {n, 2, Infinity}] +
301714649948755394226628716785024218*
Sum[121^(-n!), {n, 2, Infinity}] +
44123179305489846774208377585409491*
Sum[122^(-n!), {n, 2, Infinity}] -
164379875589719216127688610966998146*
Sum[123^(-n!), {n, 2, Infinity}] +
501046982451636338386607075354653779*
Sum[124^(-n!), {n, 2, Infinity}] -
364279243815675896519524672723097728*
Sum[125^(-n!), {n, 2, Infinity}] -
2375527346715611768257295450807400*
Sum[126^(-n!), {n, 2, Infinity}] -
19452928739717897182210893690092571*
Sum[127^(-n!), {n, 2, Infinity}] +
454151299786283395540780210700230746*
Sum[128^(-n!), {n, 2, Infinity}] +
37376114856713291341212108398605576*
Sum[129^(-n!), {n, 2, Infinity}] +
231392269880587788448395728678209628*
Sum[130^(-n!), {n, 2, Infinity}] +
50122247967226209202475595982658046*
Sum[131^(-n!), {n, 2, Infinity}] +
252814970176124257483586481088928331*
Sum[132^(-n!), {n, 2, Infinity}] +
77716463783359732887151339490831649*
Sum[133^(-n!), {n, 2, Infinity}] -
72380011819287630601133689824982104*
Sum[134^(-n!), {n, 2, Infinity}] -
197314297374390342405502640443415525*
Sum[135^(-n!), {n, 2, Infinity}] -
239590676709662470841507207197013339*
Sum[136^(-n!), {n, 2, Infinity}] +
95321496680663831442416429419228816*
Sum[137^(-n!), {n, 2, Infinity}] -
56918591225412742784774111833641989*
Sum[138^(-n!), {n, 2, Infinity}] +
112956161872387819978577025773587680*
Sum[139^(-n!), {n, 2, Infinity}] -
162129715688970577971100354279299458*
Sum[140^(-n!), {n, 2, Infinity}] -
165788373979348152041647621850755045*
Sum[141^(-n!), {n, 2, Infinity}] +
193488202673646850093731186451320576*
Sum[142^(-n!), {n, 2, Infinity}] -
548049534879807499695788178142775711*
Sum[143^(-n!), {n, 2, Infinity}] +
149929900735886016561828675677323879*
Sum[144^(-n!), {n, 2, Infinity}] +
109030802103795227201000545137622493*
Sum[145^(-n!), {n, 2, Infinity}] +
116443234746584509377150436003118677*
Sum[146^(-n!), {n, 2, Infinity}] +
7516677443054165519672701712699614*
Sum[147^(-n!), {n, 2, Infinity}] +
185797817457724013365392879403492576*
Sum[148^(-n!), {n, 2, Infinity}] +
163019019600562168777865146873566915*
Sum[149^(-n!), {n, 2, Infinity}] +
174744583076795521301304310285603543*
Sum[150^(-n!), {n, 2, Infinity}] -
5530094694507477516902247185091367*
Sum[151^(-n!), {n, 2, Infinity}] -
159993283754404572876061149387146073*
Sum[152^(-n!), {n, 2, Infinity}] -
20190979748366644843546991850900499*
Sum[153^(-n!), {n, 2, Infinity}] -
315746713840332783648739349851450877*
Sum[154^(-n!), {n, 2, Infinity}] -
220553072075068314620207647275747831*
Sum[155^(-n!), {n, 2, Infinity}] -
74835040603287483205307521237225642*
Sum[156^(-n!), {n, 2, Infinity}] -
11261942604143666747079961031082151*
Sum[157^(-n!), {n, 2, Infinity}] +
122500315722834955403769173398284189*
Sum[158^(-n!), {n, 2, Infinity}] +
19355534961471081068328784791822556*
Sum[159^(-n!), {n, 2, Infinity}] -
24171664786198281859045158156631504*
Sum[160^(-n!), {n, 2, Infinity}] -
37304159392600733806142005936112613*
Sum[161^(-n!), {n, 2, Infinity}] -
43390526037396451624214748860917124*
Sum[162^(-n!), {n, 2, Infinity}] -
178124789687088784047367909558868832*
Sum[163^(-n!), {n, 2, Infinity}] -
129697771675713291186708604185038568*
Sum[164^(-n!), {n, 2, Infinity}] -
287783212860743244691881417066300239*
Sum[165^(-n!), {n, 2, Infinity}] -
39004936231977132468790119762278629*
Sum[166^(-n!), {n, 2, Infinity}] +
40460636968805665607015035105957795*
Sum[167^(-n!), {n, 2, Infinity}] -
2745798669997723668891497173903991*
Sum[168^(-n!), {n, 2, Infinity}] +
15702921931594188322311337836282248*
Sum[169^(-n!), {n, 2, Infinity}] +
198235069860788583685403985742163386*
Sum[170^(-n!), {n, 2, Infinity}] +
164479301068157371692587032898594891*
Sum[171^(-n!), {n, 2, Infinity}] +
168271290637022192246652999496409154*
Sum[172^(-n!), {n, 2, Infinity}] -
28847077794524689480429578762761829*
Sum[173^(-n!), {n, 2, Infinity}] +
54321502221197203755000146166549989*
Sum[174^(-n!), {n, 2, Infinity}] +
74067107694636621233517904653151316*
Sum[175^(-n!), {n, 2, Infinity}] -
94585072117290818703280407462082597*
Sum[176^(-n!), {n, 2, Infinity}] -
305632900916807059676371405142479061*
Sum[177^(-n!), {n, 2, Infinity}] +
160670158321978466344142594662162328*
Sum[178^(-n!), {n, 2, Infinity}] -
132820591314239340106716063373992490*
Sum[179^(-n!), {n, 2, Infinity}] +
43759078377033606010617996242164936*
Sum[180^(-n!), {n, 2, Infinity}] -
26831797137219681958324963901360854*
Sum[181^(-n!), {n, 2, Infinity}] +
201822390541950284764187054439769695*
Sum[182^(-n!), {n, 2, Infinity}] +
28157456911833749608335322048487096*
Sum[183^(-n!), {n, 2, Infinity}] -
160051393351323301197976304332905792*
Sum[184^(-n!), {n, 2, Infinity}] +
42921313165203287148344700798275115*
Sum[185^(-n!), {n, 2, Infinity}] +
161438923210709048939689495607283470*
Sum[186^(-n!), {n, 2, Infinity}] -
236043714494690607442155545996259754*
Sum[187^(-n!), {n, 2, Infinity}] -
204446821520358652220849952968433259*
Sum[188^(-n!), {n, 2, Infinity}] -
265264067031194835058399060984376642*
Sum[189^(-n!), {n, 2, Infinity}] -
359546925325277487563947112101078671*
Sum[190^(-n!), {n, 2, Infinity}] -
79700412680229831564816575567347459*
Sum[191^(-n!), {n, 2, Infinity}] -
61063651607412749537518874562893443*
Sum[192^(-n!), {n, 2, Infinity}] -
226913071177053988439271980478321049*
Sum[193^(-n!), {n, 2, Infinity}] -
373312029979815591768749834849100993*
Sum[194^(-n!), {n, 2, Infinity}] +
92136834648577784511024142330126493*
Sum[195^(-n!), {n, 2, Infinity}] +
380979676527824189056642832302506663*
Sum[196^(-n!), {n, 2, Infinity}] +
162056853965324307731243153199521550*
Sum[197^(-n!), {n, 2, Infinity}] +
142623707639267739602457347131389959*
Sum[198^(-n!), {n, 2, Infinity}] -
63536206327935361530376288963445714*
Sum[199^(-n!), {n, 2, Infinity}] +
324533006813555086981415178554954199*
Sum[200^(-n!), {n, 2, Infinity}] +
74641094495220261486525282033370447*
Sum[201^(-n!), {n, 2, Infinity}])/
223954053633340275635823197718054367
Attachments: