OFFSET
0,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..16384
PROG
(PARI)
A163511(n) = if(!n, 1, my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
A113415(n) = if(n<1, 0, sumdiv(n, d, if(d%2, (d+1)/2)));
memoA349915 = Map();
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Oct 27 2023
STATUS
approved