# Computed 2017-05-19 in GP/PARI CALCULATOR Version 2.9.2 (released) amd64 running mingw (x86-64/GMP-6.1.2 kernel) 64-bit version with the following PARI-program: # allocatemem(2^30); # A069625(n) = {d = divisors(n); s = Set(); for (i = 1, 2^#d, b = binary(i); if (sum(j = 1, #b, b[j]) > 1, s = Set(concat(s, prod(j = 1, #b, if (b[j] == 1, d[j], 1)))); ); ); #s; } \\ This function by _Michel Marcus_, Sep 17 2013, from the Program-section # for(n=1, 359, write("b069625.txt", n, " ", A069625(n))); 1 0 2 1 3 1 4 3 5 1 6 6 7 1 8 6 9 3 10 6 11 1 12 19 13 1 14 6 15 6 16 10 17 1 18 19 19 1 20 19 21 6 22 6 23 1 24 44 25 3 26 6 27 6 28 19 29 1 30 58 31 1 32 15 33 6 34 6 35 6 36 65 37 1 38 6 39 6 40 44 41 1 42 58 43 1 44 19 45 19 46 6 47 1 48 85 49 3 50 19 51 6 52 19 53 1 54 44 55 6 56 44 57 6 58 6 59 1 60 268 61 1 62 6 63 19 64 21 65 6 66 58 67 1 68 19 69 6 70 58 71 1 72 156 73 1 74 6 75 19 76 19 77 6 78 58 79 1 80 85 81 10 82 6 83 1 84 268 85 6 86 6 87 6 88 44 89 1 90 268 91 6 92 19 93 6 94 6 95 6 96 146 97 1 98 19 99 19 100 65 101 1 102 58 103 1 104 44 105 58 106 6 107 1 108 156 109 1 110 58 111 6 112 85 113 1 114 58 115 6 116 19 117 19 118 6 119 6 120 822 121 3 122 6 123 6 124 19 125 6 126 268 127 1 128 28 129 6 130 58 131 1 132 268 133 6 134 6 135 44 136 44 137 1 138 58 139 1 140 268 141 6 142 6 143 6 144 309 145 6 146 6 147 19 148 19 149 1 150 268 151 1 152 44 153 19 154 58 155 6 156 268 157 1 158 6 159 6 160 146 161 6 162 85 163 1 164 19 165 58 166 6 167 1 168 822 169 3 170 58 171 19 172 19 173 1 174 58 175 19 176 85 177 6 178 6 179 1 180 1383 181 1 182 58 183 6 184 44 185 6 186 58 187 6 188 19 189 44 190 58 191 1 192 231 193 1 194 6 195 58 196 65 197 1 198 268 199 1 200 156 201 6 202 6 203 6 204 268 205 6 206 6 207 19 208 85 209 6 210 1610 211 1 212 19 213 6 214 6 215 6 216 382 217 6 218 6 219 6 220 268 221 6 222 58 223 1 224 146 225 65 226 6 227 1 228 268 229 1 230 58 231 58 232 44 233 1 234 268 235 6 236 19 237 6 238 58 239 1 240 1980 241 1 242 19 243 15 244 19 245 19 246 58 247 6 248 44 249 6 250 44 251 1 252 1383 253 6 254 6 255 58 256 36 257 1 258 58 259 6 260 268 261 19 262 6 263 1 264 822 265 6 266 58 267 6 268 19 269 1 270 822 271 1 272 85 273 58 274 6 275 19 276 268 277 1 278 6 279 19 280 822 281 1 282 58 283 1 284 19 285 58 286 58 287 6 288 539 289 3 290 58 291 6 292 19 293 1 294 268 295 6 296 44 297 44 298 6 299 6 300 1383 301 6 302 6 303 6 304 85 305 6 306 268 307 1 308 268 309 6 310 58 311 1 312 822 313 1 314 6 315 268 316 19 317 1 318 58 319 6 320 231 321 6 322 58 323 6 324 309 325 19 326 6 327 6 328 44 329 6 330 1610 331 1 332 19 333 19 334 6 335 6 336 1980 337 1 338 19 339 6 340 268 341 6 342 268 343 6 344 44 345 58 346 6 347 1 348 268 349 1 350 268 351 44 352 146 353 1 354 58 355 6 356 19 357 58 358 6 359 1