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,2

Links

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

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

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

Sequence in context: A369761 A003981 A360674 * A324054 A214413 A214409

Adjacent sequences: A324105 A324106 A324107 * A324109 A324110 A324111

Keyword

nonn,mult

Author

Antti Karttunen and David A. Corneth, Feb 15 2019

Status

approved