# This b-file was computed by Antti Karttunen, 2024-06-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: # # A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1])); # A276085(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*prod(i=1,primepi(f[k, 1]-1),prime(i))); }; # A373489(n) = (n<=2 || (!isprime(n) && !(A003415(n)%A276085(n)))); # isA373490 = A373489; # k=0; n=0; while(n<2^20,n++; if(!(n%(2^15)),print1("("n")")); if(isA373490(n),k++; write("b373490.txt", k, " ", n))); 1 1 2 2 3 4 4 8 5 10 6 12 7 15 8 16 9 20 10 28 11 32 12 36 13 64 14 100 15 108 16 128 17 144 18 162 19 180 20 189 21 192 22 216 23 225 24 256 25 400 26 480 27 500 28 512 29 686 30 784 31 972 32 1000 33 1024 34 1250 35 1280 36 1296 37 1350 38 1728 39 1890 40 2048 41 2160 42 2304 43 2700 44 2835 45 2880 46 3375 47 3500 48 3600 49 3840 50 4032 51 4096 52 4500 53 4800 54 4860 55 5005 56 5096 57 5120 58 6300 59 6400 60 6480 61 6750 62 6860 63 7776 64 8000 65 8192 66 8232 67 8640 68 9000 69 10000 70 11664 71 12000 72 12320 73 13500 74 15552 75 15876 76 16000 77 16384 78 18375 79 20250 80 20412 81 20736 82 21870 83 21952 84 22500 85 24300 86 26244 87 27000 88 27648 89 30618 90 32400 91 32768 92 34020 93 34848 94 34992 95 35000 96 35721 97 36864 98 37044 99 43200 100 44100 101 45360 102 45375 103 46656 104 47628 105 49152 106 49392 107 50625 108 57600 109 60480 110 60500 111 62208 112 63504 113 65536 114 65856 115 76032 116 80640 117 82944 118 84672 119 87808 120 90000 121 96228 122 98415 123 100000 124 100800 125 109350 126 110592 127 112000 128 114048 129 118125 130 120000 131 121500 132 128000 133 131072 134 131220 135 135000 136 143360 137 145152 138 145800 139 155520 140 156816 141 157500 142 160000 143 162000 144 170100 145 174960 146 176400 147 182250 148 183708 149 187500 150 194400 151 205821 152 207900 153 209088 154 211288 155 216000 156 218700 157 220500 158 221760 159 226800 160 230400 161 231525 162 232848 163 233280 164 235200 165 244944 166 248832 167 250000 168 259200 169 262144 170 263424 171 279936 172 280000 173 288000 174 295680 175 302400 176 311040 177 313600 178 326592 179 326700 180 329280 181 338688 182 345600 183 394240 184 400950 185 414720 186 420000 187 428652 188 435456 189 435600 190 460992 191 470596 192 475200 193 486000 194 512000 195 514500 196 518616 197 524288 198 552960 199 580608 200 580800 201 590490 202 607500 203 614656 204 637875 205 648000 206 656100 207 679140 208 684288 209 686000 210 708588 211 713097 212 737280 213 754600 214 759375 215 766656 216 768320 217 774144 218 774400 219 787320 220 806400 221 810000 222 850500 223 864000 224 874800 225 887040 226 918540 227 926100 228 944784 229 972000 230 1000000 231 1012500 232 1032192 233 1048576