# This b-file was computed by Antti Karttunen, 2019-02-18 # 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); # A064989(n) = {my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f)}; # A156552(n) = if(1==n, 0, if(!(n%2), 1+(2*A156552(n/2)), 2*A156552(A064989(n)))); # A192895(n) = sumdiv(n, d, hammingweight(d)*(-1)^(d==n)); # j=0; k=0; for(n=2,4473,if(A192895(A156552(n))<0, k++; write("b324102.txt", k, " ", n), j++; write("b324101.txt", j, " ", n))); 1 2 2 4 3 6 4 8 5 12 6 14 7 18 8 20 9 24 10 32 11 38 12 42 13 44 14 48 15 52 16 54 17 56 18 60 19 70 20 80 21 104 22 106 23 108 24 110 25 124 26 128 27 130 28 132 29 140 30 150 31 152 32 162 33 168 34 172 35 174 36 176 37 188 38 190 39 192 40 200 41 204 42 230 43 234 44 236 45 242 46 272 47 280 48 288 49 294 50 300 51 304 52 308 53 330 54 338 55 344 56 350 57 368 58 378 59 384 60 390 61 392 62 396 63 412 64 424 65 432 66 436 67 450 68 476 69 488 70 492 71 494 72 504 73 512 74 518 75 546 76 576 77 590 78 592 79 608 80 612 81 630 82 638 83 644 84 646 85 650 86 656 87 672 88 680 89 682 90 686 91 690 92 700 93 702 94 704 95 720 96 722 97 726 98 754 99 760 100 782 101 790 102 798 103 808 104 832 105 836 106 856 107 864 108 876 109 884 110 896 111 902 112 924 113 946 114 950 115 960 116 972 117 980 118 994 119 1004 120 1014 121 1040 122 1044 123 1050 124 1072 125 1088 126 1090 127 1092 128 1098 129 1100 130 1116 131 1118 132 1134 133 1136 134 1144 135 1148 136 1152 137 1160 138 1170 139 1188 140 1194 141 1196 142 1200 143 1208 144 1218 145 1230 146 1236 147 1248 148 1250 149 1254 150 1260 151 1268 152 1280 153 1290 154 1292 155 1300 156 1308 157 1320 158 1328 159 1372 160 1380 161 1400 162 1434 163 1448 164 1472 165 1474 166 1476 167 1510 168 1512 169 1530 170 1536 171 1554 172 1566 173 1586 174 1600 175 1610 176 1620 177 1624 178 1628 179 1648 180 1720 181 1724 182 1728 183 1734 184 1744 185 1770 186 1800 187 1824 188 1834 189 1856 190 1860 191 1890 192 1900 193 1944 194 1976 195 1984 196 1990 197 1998 198 2000 199 2002 200 2024 201 2048 202 2054 203 2058 204 2072 205 2080 206 2090 207 2112 208 2140 209 2160 210 2170 211 2178 212 2244 213 2262 214 2312 215 2322 216 2324 217 2346 218 2356 219 2366 220 2398 221 2400 222 2408 223 2442 224 2444 225 2460 226 2482 227 2512 228 2542 229 2560 230 2562 231 2574 232 2592 233 2610 234 2618 235 2630 236 2652 237 2660 238 2672 239 2700 240 2714 241 2718 242 2728 243 2738 244 2750 245 2752 246 2800 247 2806 248 2820 249 2860 250 2880 251 2888 252 2892 253 2900 254 2938 255 2958 256 3050 257 3056 258 3064 259 3072 260 3078 261 3082 262 3108 263 3124 264 3130 265 3146 266 3200 267 3230 268 3250 269 3286 270 3290 271 3300 272 3328 273 3332 274 3380 275 3388 276 3416 277 3430 278 3432 279 3456 280 3472 281 3510 282 3526 283 3528 284 3538 285 3542 286 3544 287 3550 288 3556 289 3570 290 3584 291 3588 292 3596 293 3600 294 3624 295 3626 296 3654 297 3690 298 3696 299 3706 300 3740 301 3796 302 3818 303 3822 304 3834 305 3840 306 3842 307 3872 308 3888 309 4024 310 4030 311 4040 312 4056 313 4080 314 4100 315 4104 316 4164 317 4182 318 4190 319 4192 320 4200 321 4216 322 4218 323 4232 324 4242 325 4278 326 4284 327 4290 328 4332 329 4336 330 4368 331 4374 332 4380 333 4394 334 4400 335 4424 336 4444 337 4454 338 4464 339 4466