# This b-file was computed by Antti Karttunen, 2024-01-02 # in GP/PARI CALCULATOR Version 2.9.4 (released) amd64 running linux (x86-64/GMP-6.1.2 kernel) 64-bit version, compiled: Dec 19 2017, gcc version 7.3.0 (Ubuntu 7.3.0-1ubuntu1), threading engine: pthread # with the following program: # # default(parisizemax,2^30); # A002110(n) = prod(i=1,n,prime(i)); # A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A002110(primepi(f[i, 1]))^f[i, 2]) }; \\ From A108951 # memoA277120 = Map(); # A277120(n) = if(1==n,0,my(v); if(mapisdefined(memoA277120,n,&v), v, v = 1+sumdiv(n,d,if((1==d)||(d*d)>n,0,if((d*d)==n,1,2)*A277120(d)*A277120(n/d))); mapput(memoA277120,n,v); (v))); # A000108(n) = binomial(2*n, n)/(n+1); # A052886(n) = sum(k=1,n,k!*stirling(n,k,2)*A000108(k-1)); # A366377(n) = if(isprime(n),A052886(primepi(n)),A277120(A108951(n))); # for(n=1,121,write("b366377.txt", n, " ", A366377(n))); 1 0 2 1 3 3 4 2 5 19 6 11 7 207 8 5 9 62 10 113 11 3211 12 45 13 64383 14 1709 15 911 16 15 17 1581259 18 345 19 45948927 20 645 21 17753 22 33797 23 1541641771 24 195 25 9332 26 822821 27 2405 28 12405 29 58645296063 30 6525 31 2494091717899 32 51 33 428309 34 23765093 35 223031 36 1890 37 117258952478847 38 793795349 39 12293957 40 3585 41 6038838138717931 42 154605 43 338082244882740543 44 296805 45 55885 46 30093468917 47 20443414320405268939 48 873 49 3292082 50 80565 51 408780221 52 8470245 53 1327850160592214291967 54 15775 55 6361133 56 83505 57 15443632133 58 1276368506981 59 92200405122521276427691 60 43545 61 6815359767190023358085823 62 59876522098373 63 1564245 64 188 65 210537089 66 4383525 67 534337135055010788022858379 68 280441845 69 653230987949 70 2269065 71 44288342379983148877427260287 72 10221 73 3869350371139066498444732627051 74 3078048545598389 75 810065 76 10560353205 77 108449111 78 144456045 79 355398753243829624996855502499903 80 19569 81 120075 82 172060541510729237 83 34236306609375780820887296578150219 84 1211835 85 7926206177 86 10390748282644004741 87 30576445302677 88 2340165 89 3451512024628449522557136130740375807 90 432975 91 4068371633 92 445518481605 93 1568962533848381 94 674146787456309780453 95 334337310041 96 3989 97 363432436606692124003135232012778932011 98 38344425 99 51074365 100 627690 101 39897150144487772727868112213326508430783 102 5420397525 103 4558680579451467987325079571584319206248459 104 76463145 105 26319305 106 46764127641556745359829 107 541310657947038043640843836964609680550950527 108 99215 109 66702907052670313180381459121847429265350318571 110 74419785 111 87569295028163813 112 534837 113 8518412040168384946946025666942271428313198406463 114 228039417405 115 15614838145313 116 20809753037445 117 1903103205 118 3453780086156272317256757 119 171131758109 120 277203 121 2088410372