login
A324108
Multiplicative with a(p^e) = A324054((p^e)-1).
7
1, 3, 4, 7, 6, 12, 13, 15, 8, 18, 24, 28, 31, 39, 24, 31, 12, 24, 32, 42, 52, 72, 78, 60, 57, 93, 124, 91, 156, 72, 121, 63, 96, 36, 78, 56, 72, 96, 124, 90, 96, 156, 192, 168, 48, 234, 240, 124, 133, 171, 48, 217, 342, 372, 144, 195, 128, 468, 624, 168, 781, 363, 104, 127, 186, 288, 56, 84, 312, 234, 156, 120, 112
OFFSET
1,2
LINKS
PROG
(PARI)
A324054(n) = { my(p=2, mp=p*p, m=1); while(n, if(!(n%2), p=nextprime(1+p); mp = p*p, if(3==(n%4), mp *= p, m *= (mp-1)/(p-1))); n>>=1); (m); };
A324108(n) = { my(f=factor(n)); prod(i=1, #f~, A324054((f[i, 1]^f[i, 2])-1)); };
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
STATUS
approved