A324108 - OEIS

%I #6 Feb 16 2019 20:39:06

%S 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,

%T 93,124,91,156,72,121,63,96,36,78,56,72,96,124,90,96,156,192,168,48,

%U 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

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

%H Antti Karttunen, <a href="/A324108/b324108.txt">Table of n, a(n) for n = 1..16384</a>

%o (PARI)

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

%o A324108(n) = { my(f=factor(n)); prod(i=1, #f~, A324054((f[i,1]^f[i,2])-1)); };

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

%K nonn,mult

%O 1,2

%A _Antti Karttunen_ and _David A. Corneth_, Feb 15 2019