A324108 Multiplicative with a(p^e) = A324054((p^e)-1).

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

Author

Antti Karttunen and David A. Corneth, Feb 15 2019

Keywords

• nonn
• mult

Links

• Antti Karttunen, Table of n, a(n) for n = 1..16384

Crossrefs

Cf. A000203, A005940, A324054, A324106, A324109, A324110.

Programs

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)); };