# A354186 for range 1 .. 65537 computed by Antti Karttunen, 2022-05-19 # 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: # # A348717(n) = if(1==n, 1, my(f = factor(n), k = primepi(f[1, 1])-1); for (i=1, #f~, f[i, 1] = prime(primepi(f[i, 1])-k)); factorback(f)); # memoA354186 = Map(); # A354186(n) = if(1==n,1,my(v); if(mapisdefined(memoA354186,n,&v), v, v = -sumdiv(n,d,if(d