# This b-file was computed by Antti Karttunen, 2024-05-24 # 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); # A324198(n) = { my(m=1, p=2, orgn=n); while(n, m *= (p^min(n%p, valuation(orgn, p))); n = n\p; p = nextprime(1+p)); (m); }; # memoA346242 = Map(); # A346242(n) = if(1==n,1,my(v); if(mapisdefined(memoA346242,n,&v), v, v = -sumdiv(n,d,if(d