# This b-file was computed by Antti Karttunen, 2020-01-10 # 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^31); # v002182 = readvec("/home/antti/A/Schemuli/seqs/b002182_to.txt"); \\ Prepared with gawk ' { print $2 } ' < b002182.txt > b002182_to.txt (originally from Flammenkamp's data) # sublist_of_first_proper_multiple_terms_of(v) = { my(u=v[1], lista=List(u)); for(i=2,#v,if((v[i]>u)&&!(v[i]%u), u = v[i]; listput(lista,u))); Vec(lista); }; # v133411 = sublist_of_first_proper_multiple_terms_of(v002182); # A133411(n) = v133411[n]; # A329900(n) = { my(m=1, pp=1); while(1, forprime(p=2, ,if(n%p, if(2==p, return(m), break), n /= p; pp = p)); m *= pp); (m); }; # A330744(n) = A329900(A133411(n)); # for(n=1,#v133411,write("b330744.txt", n, " ", A330744(n))); 1 1 2 2 3 4 4 6 5 12 6 24 7 40 8 60 9 84 10 168 11 336 12 528 13 792 14 936 15 1872 16 2448 17 2736 18 4560 19 5520 20 8280 21 11592 22 23184 23 29232 24 31248 25 62496 26 74592 27 124320 28 137760 29 144480 30 157920 31 315840 32 356160 33 559680 34 623040 35 644160 36 966240 37 1061280 38 1124640 39 1686960 40 1734480 41 2049840 42 2218320 43 2330640 44 2499120 45 4165200 46 4539600 47 4726800 48 4820400 49 6748560 50 7010640 51 7141680 52 7403760 53 9681840 54 10881360 55 11224080 56 12544560 57 13119120 58 13310640 59 14268240 60 14459760 61 28919520 62 57839040 63 60137280 64 62435520 65 63967680 66 66265920 67 68564160 68 69330240 69 83926080 70 167852160 71 177125760 72 178980480 73 182689920 74 184544640 75 195672960 76 206801280 77 210510720 78 212365440 79 216074880 80 221639040 81 369398400 82 372489600 83 387945600 84 397219200 85 406492800 86 415766400 87 418857600 88 428131200 89 434313600 90 437404800 91 551510400 92 570998400 93 598281600 94 606076800 95 609974400 96 617769600 97 660374400 98 689539200 99 702038400 100 1103203200 101 1135939200 102 1142486400 103 1155580800 104 1175222400 105 1201411200 106 1802116800 107 1831579200 108 1861041600 109 1880683200 110 1910145600 111 1949428800 112 2924143200 113 2953605600 114 3012530400 115 3086186400 116 4320660960 117 4341284640 118 4444403040 119 4465026720 120 4526897760 121 4568145120 122 5452302240 123 5526148320 124 5624609760 125 5673840480 126 5698455840 127 5747686560 128 11495373120 129 11790757440 130 11987680320 131 12086141760 132 12283064640 133 12381526080 134 12529218240 135 14807257920 136 15156348480 137 15214530240 138 16859344320 139 17439589440 140 17633004480 141 17955362880 142 18831234240 143 19034084160 144 19236934080 145 19304550720 146 19507400640 147 19845483840 148 20048333760 149 20251183680 150 20318800320 151 20521650240 152 22430640960 153 22652360640 154 22800173760 155 22874080320 156 23317519680 157 23687052480 158 23760959040 159 23908772160 160 24130491840 161 24352211520 162 24426118080 163 24869557440 164 25017370560 165 25239090240 166 28461101760 167 28794467520 168 29211174720 169 29544540480 170 29961247680 171 30294613440 172 30544637760 173 30794662080 174 43112526912 175 43345882944 176 43812595008 177 44162629056 178 44395985088 179 44862697152 180 45096053184 181 45912799296 182 46496189376 183 47196257472 184 47312935488 185 47896325568 186 48013003584 187 48246359616 188 48363037632 189 48946427712 190 49763173824 191 49996529856 192 55656514368 193 55786401216 194 56046174912 195 56955382848 196 57215156544 197 57345043392 198 57604817088 199 58903685568 200 59163459264 201 59683006656 202 60332440896 203 60851988288 204 61111761984 205 61501422528 206 61891083072 207 62800291008 208 63060064704 209 63449725248 210 63839385792 211 66003432768 212 66540591936 213 66943461312 214 67749200064 215 68017779648 216 68420649024 217 68554938816 218 69226387776 219 69360677568 220 90702424512 221 91229253696 222 92107302336 223 92282912064