# This b-file was computed by Antti Karttunen, 2019-11-11 # 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); # A034386(n) = prod(i=1, primepi(n), prime(i)); # A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) }; \\ From A108951 # A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); }; # A324886(n) = A276086(A108951(n)); # A329040(n) = omega(A324886(n)); # m=0; k=0; for(n=1,2^20, u = A329040(n); if(u>m, m=u; k++; print("a(",k,")=",n," -> ", u); write("b329051.txt", k, " ", n))); 1 1 2 8 3 49 4 162 5 289 6 529 7 961 8 1517 9 1681 10 2491 11 2809 12 3481 13 4489 14 5041 15 5329 16 6889 17 7921 18 10403 19 10609 20 11663 21 12769 22 16129 23 17161 24 18769 25 22499 26 22801 27 24649 28 28891 29 29929 30 32041 31 37249 32 38021 33 38809 34 39601 35 50621 36 51529 37 52441 38 57121 39 58081 40 63001 41 66049 42 72899 43 73441 44 76729 45 78961 46 85849 47 94249 48 96721 49 100489 50 109561 51 113569 52 120409 53 124609 54 128881 55 136891 56 139129 57 146689 58 151321 59 157609 60 160801 61 175561 62 177241 63 185761 64 187489 65 196249 66 201601 67 208849 68 212521 69 218089 70 229441 71 237169 72 245009 73 253009 74 265189 75 271441 76 273529 77 299209 78 310249 79 316969 80 323761 81 326041