|
%I #9 Feb 20 2019 21:44:00
%S 1,3,6,9,18,18,10,15,30,54,90,54,50,30,108,225,450,90,250,162,60,270,
%T 2250,90,1250,150,3750,90,11250,324,14,21,540,1350,180,270,70,750,300,
%U 270,630,180,350,810,540,6750,3150,1350,1750,3750,2700,450,15750,11250,1620,150,1500,33750,78750,972,98,42,300,441,900
%N Multiplicative with a(p^e) = A276086(p^e).
%H Antti Karttunen, <a href="/A324283/b324283.txt">Table of n, a(n) for n = 1..10000</a>
%H Antti Karttunen, <a href="/A324283/a324283.txt">Data supplement: n, a(n) computed for n = 1..30030</a>
%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%o (PARI)
%o A276086(n) = { my(i=0,m=1,pr=1,nextpr); while((n>0),i=i+1; nextpr = prime(i)*pr; if((n%nextpr),m*=(prime(i)^((n%nextpr)/pr));n-=(n%nextpr));pr=nextpr); m; };
%o A324283(n) = { my(f=factor(n)); prod(i=1, #f~, A276086(f[i,1]^f[i,2])); };
%Y Cf. A276086, A319708, A323878, A324284.
%K nonn,base,mult
%O 1,2
%A _Antti Karttunen_, Feb 20 2019
|
