# This b-file was computed by Antti Karttunen, 2019-09-17 # 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); # allocatemem(2^30); # A034448(n) = { my(f=factorint(n)); prod(k=1, #f~, 1+(f[k, 1]^f[k, 2])); }; \\ After code in A034448 # A034460(n) = (A034448(n) - n); # memo327159 = Map(); # A327159(n) = if(1==n,0,my(v,orgn=n,xs=Set([])); if(mapisdefined(memo327159, n, &v), v, while(n && !vecsearch(xs,n), xs = setunion([n],xs); n = A034460(n); if(mapisdefined(memo327159,n),for(i=1,#xs,mapput(memo327159,xs[i],0)); return(0))); if(n==orgn,v = length(xs); for(i=1,v,mapput(memo327159,xs[i],v)), v = 0; mapput(memo327159,orgn,v)); (v))); # k=0; n=0; while(k<=440, n++; if(t=A327159(n), k++; print(n," -> ",t); write("b327157.txt", k," ", n))); 1 6 2 30 3 42 4 54 5 60 6 90 7 114 8 126 9 1140 10 1260 11 1482 12 1878 13 1890 14 2142 15 2178 16 2418 17 2958 18 3522 19 3534 20 3582 21 3774 22 3906 23 3954 24 3966 25 3978 26 4146 27 4158 28 4434 29 4446 30 18018 31 22302 32 24180 33 29580 34 32130 35 35220 36 35238 37 35340 38 35820 39 37740 40 38682 41 39060 42 39540 43 39660 44 39780 45 40446 46 41460 47 41580 48 44340 49 44460 50 44772 51 45402 52 49308 53 49878 54 56430 55 64530 56 65190 57 65322 58 67158 59 73962 60 74430 61 74610 62 74790 63 87360 64 98106 65 101478 66 117258 67 117270 68 117450 69 142310 70 168730 71 180180 72 197340 73 223020 74 241110 75 242730 76 263820 77 263940 78 280380 79 280500 80 286500 81 296010 82 308220 83 365700 84 395730 85 395910 86 420570 87 420750 88 429750 89 462330 90 473298 91 503538 92 548550 93 591030 94 618570 95 632622 96 632634 97 646854 98 669900 99 671580 100 698130 101 698310 102 698490 103 709902 104 712710 105 712890 106 713070 107 739620 108 746538 109 755262 110 763620 111 785148 112 815100 113 827652 114 827700 115 932100 116 958998 117 959010 118 976278 119 976290 120 976458 121 988260 122 1004850 123 1050780 124 1077890 125 1080150 126 1086180 127 1088340 128 1099390 129 1109898 130 1141980 131 1144980 132 1156870 133 1172820 134 1177722 135 1222650 136 1241478 137 1241550 138 1248180 139 1254582 140 1281540 141 1289658 142 1289670 143 1291050 144 1291980 145 1292570 146 1295286 147 1339914 148 1339926 149 1341780 150 1387500 151 1398150 152 1451820 153 1451940 154 1457820 155 1469220 156 1475810 157 1511930 158 1520670 159 1537500 160 1566180 161 1571388 162 1598470 163 1610700 164 1621500 165 1654212 166 1664802 167 1668780 168 1669150 169 1669910 170 1702110 171 1707720 172 1717020 173 1768620 174 1778922 175 1805610 176 1852938 177 1867740 178 1883700 179 1908420 180 1922310 181 1997520 182 2024760 183 2062570 184 2115120 185 2135100 186 2162562 187 2195358 188 2212026 189 2215350 190 2229798 191 2229810 192 2233554 193 2236570 194 2259246 195 2274900 196 2357082 197 2383026 198 2402340 199 2402460 200 2429030 201 2432250 202 2462958 203 2481318 204 2537730 205 2569110 206 2670162 207 2728726 208 2739846 209 2739858 210 2759502 211 2775858 212 2775870 213 2779362 214 2862630 215 3057762 216 3074910 217 3077354 218 3202650 219 3238158 220 3317994 221 3378642 222 3406116 223 3412398 224 3421386 225 3482700 226 3506100 227 3522990 228 3690204 229 3726954 230 3811530 231 3833046 232 3835470 233 3951990 234 4020246 235 4038354 236 4039890 237 4104402 238 4138158 239 4138170 240 4198236 241 4246130 242 4304946 243 4304958 244 4439890 245 4488910 246 4510884 247 4532710 248 4608894 249 4623354 250 4918550 251 4974858 252 5067906 253 5067918 254 5073570 255 5074674 256 5085710 257 5109174 258 5123090 259 5131986 260 5131998 261 5132034 262 5145322 263 5191290 264 5224050 265 5259150 266 5336214 267 5341620 268 5369730 269 5385310 270 5431188 271 5441100 272 5504110 273 5535042 274 5535306 275 5570910 276 5709486 277 5709498 278 5709510 279 5709690 280 5812130 281 5849670 282 5849766 283 5858412 284 5967270 285 6057486 286 6135962 287 6297354 288 6361806 289 6381732 290 6433476 291 6474186 292 6482190 293 6630078 294 6766326 295 6923868 296 6940890 297 6993610 298 7006524 299 7042950 300 7051590 301 7158710 302 7288930 303 7604046 304 7704318 305 7704330 306 7766010 307 7790742 308 7863090 309 7929012 310 7937190 311 8012430 312 8095620 313 8146782 314 8161650 315 8189610 316 8194230 317 8221598 318 8227314 319 8235810 320 8537100 321 8619765 322 8754130 323 8763468 324 8787618 325 8826070 326 8829234 327 8934900 328 9057300 329 9122226 330 9182430 331 9224010 332 9397674 333 9478910 334 9572598 335 9591246 336 9626322 337 9627915 338 9650214 339 9680310 340 9685500 341 9691458 342 9701076 343 9738894 344 9912300 345 10043690 346 10254970 347 10273670 348 10280238 349 10280250 350 10385802 351 10458924 352 10509786 353 10511370 354 10827954 355 10893230 356 11008398 357 11049730 358 11066934 359 11115126 360 11156154 361 11777220 362 11806962 363 11893518 364 12130674 365 12130686 366 12143430 367 12207918 368 12284874 369 12330726 370 12330738 371 12414780 372 12759666 373 12759678 374 12805650 375 12841662 376 12934680 377 12947010 378 13145202 379 13192680 380 13321490 381 13402350 382 13585950 383 13683282 384 13683294 385 13882440 386 14158926 387 14257020 388 14426230 389 14496900 390 14528250 391 14551614 392 14634270 393 14868450 394 15510840 395 15649074 396 15688386 397 16045722 398 16192750 399 16195926 400 16326090 401 17041010 402 17048934 403 17050794 404 17050806 405 17247330 406 17257695 407 17278548 408 17468730 409 17578785 410 17709720 411 17799852 412 18087818 413 18093510 414 18125886 415 18143160 416 18510390 417 19150222 418 19181640 419 20029800 420 20038920 421 21385530 422 21448630 423 21705684 424 21745350 425 23030090 426 23161794 427 23161806 428 23570820 429 23990316 430 24542700 431 24750840 432 24813180 433 25425876 434 25917822 435 26355084 436 26414124 437 26699778 438 26791830 439 26838840 440 27287260